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1.0 OVERVIEW 


This section provides a background for the EarthSat Spring Wheat 
Yield System and its documentation. Discussions are presented on (a) 
system purpose, (b) machine dependence, (c) system organization, and (d) 
documentation organization. 

Section 1.1, "System Purpose" briefly provides a framework for the 
software discussion. Section 1.2 discusses machine-specific features of 
the AGMET system. Section 1.3 outlines the structure implemented in the 
1975 test. Section 1.4 diagrams the remaining documentation and serves 
as a guide to its effective use. 

1 . 1 System Overview 

The EarthSat System operates on a global rectangular two-level cell 
structure, limited in the 1975 test to upper Great Plains spring wheat 
states; the system processes meteorological data from both ground obser- 
vations and meteorologic satellites to define the plant weather aspects 
on a four time per day basis and calculates plant growth stages and 
defines soil moisture profiles, assesses plant stress and prepares 
forecasts of end-of-year yields on a cell by cell basis (12.5 x 12.5 n.m. 

The system is activated after entry, on a cell by cell basis, of 
soil characteristics, i.e., texture-related crop available moisture 
characteristics, starting soil moisture information, planting dates, 
etc. 

The processing activities in the system are initiated by the entry 
of the meteorological data. Surface fitting routines and .diagnostic 
models transform the input data into daily estimates of precfpitation 



(PRECIP) and potential evapotranspiration (ETP) on a 25 n.m, I,J grid. 
Once the atmospheric environmental factors have been defined, model 
assessments of daily soil moisture profiles and plant stress are prepared 
at the 12.5 x 12.5 n.m. (k) cell grid level. 

Yield forecasts are prepared from a daily average stress from 
planting to ripe and the historical technological yield value. The 
yield forecasts are prepared at the cell level and then aggregated 
upward weighted on the basis of historical harvested acreage at the 
county, CRD and state levels. 

All data calculated during the crop year are accumulated into a 
crop season master file for subsequent research and study availability. 
Specific site data are reformatted into time sequential files for ease 
in subsequent review and display. 

1 . 2 Machine-specific Features 

The EarthSat System was designed for and implemented on the IBM 
system 360/model 50 computer. Table 1-1 lists the system features 
required to support the system. 


IBM Compatible Comparable With 

1) IBM STANDARD system 360 utilities 

2) STANDARD sort-merge facilities 

3) STANDARD system catalogues 

4) STANDARD link editor and loader 

5) STANDARD MACRO library 

6) FORTRAN G compiler 

7) ASSEMBLER F assembler 

8) STANDARD procedures (FORTGCLG, ASMFCL) 


System Considerations for EarthSat Spring Wheat Yield System 
Generation and Execution 

TABLE 1-1 
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1 .3 System Organization 

The system organization is outlined in Figure 1.0. Task area A, 
performed once at the beginning of the growing season, generates the 
necessary background data files for the present season. Task areas B, 

C, and D are ongoing activities throughout the crop season. Task area B 
is a continuous activity required for extraction and interpretation of 
meteorological input data. This subsystem is an interactive, digitally 
assisted manual verification of satellite data and station reports. 

This manual -digital interaction assists detection and correction of 
errors and preparation of the final data deck structure. Task area C, 
the functional center of the EarthSat AGMET system is the agrometeoro- 
logical -predictive subsystem. This subsystem processes raw meteoro- 
logical data, grows the plant in its local environment, produces daily 
ground status reports, and periodically predicts yield for the various 
geographic regions. Task area D is a reoccurring task of collecting and 
storing the outputs of each cycle from the agronomic and meteorologic 
models. These provide ready inputs to post season analytical routines. 

1 .4 Documentation Organization 

The documentation sections contain segment logical flow diagrams, 
if applicable, which relates the program components necessary to accom- 
plish a given task. Each task in a segment logical flow diagram requires 
one or more programs. Documentation of each program in sections 3.0 to 
6.0 includes: 
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1. Functional description. 

2. Mathematical description. 

3. Job Control Language. 

4 Data Formats. 

5. Program Flowcharts. 

6. Source Code. 

7. Sample Output. 

In addition to the routine documentations, two special subsections are 
required, sections 2 and 7. Section 2 documents necessary pre-system 
activities and section 7 defines data base structure and record formats. 
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2.0 PRESYSTEM ACTIVITIES 

Two types of general software require special handling to facili- 
tate overall system flexibility and to reduce the complexities of using 
the system modules. These two items are conditional assembly MACROS and 
the general assembler subroutines supplied by EarthSat. 

This section supplies the normal documentation of the software and 
the job control language to allocate and create the files containing the 
MACRO source and the executable asembler sub-programs. 

All following sections containing executable modules assume genera- 
tion of the Assembler subroutine library, and MACRO file. Requests for 
these modules are automatically resolved by the appropriate job control 
language. 

2.1 MACRO 

2.1.1 SETUP 

2. 1.1.1 Functional Description 

SETUP is the EarthSat assembler MACRO which performs the following 
functions for the assembler programer: 

1. Establishes a save area 

2. Stores the calling program registers 

3. Stores the return address 

4. Stores the new save area address at the appropriate location 
in the calling routine 

5. Establishes addressability 

2. 1.1. 2 MATHEMATICAL DESCRIPTION 

- none - 

2. 1.1. 3 SETUP LOAD 
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Job Control Language 


//SUPLOAD JOB (BR9001, 746), ANDERSON, CLASS=F 

// EXEC P6M=IEBGENER,REGI0N=80K 

//* DEFINE MACRO LIBRARY AND ENTER MEMBER SETUP 

//* 

//SYSPRINT DD SYSOUT=A 
//SYSUTI DD * 


- Source Deck - 

//SYSUT2 DD DSN=EARTHSAT.MACLIB,DISP=(NEW,CATLG), 
// UNIT=2314,V0L=SER=SCRT02,SPACE=(CYL,(1.1,20)), 
// DCB= (RECFM=FB ,LRECL=80 ,BLKSIZE=1 600 ,DSORG=PO) 
//SYSIN DD * 

GENERATE MAXNAME=1 
MEMBER NAME=SETUP 
/* 

// 


Data Description 

SYSUTI - Defines input source deck for lEBGENER 
SYSUT2 - Defines output file 

SYSIN - lEBGENER control statements refer IBM system, 
utilities manual for purpose and description 

2. 1.1. 4 DATA DESCRIPTION 
- none - 
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2. 1.1. 5 SOURCE CODE 


^NAMF 

MACRO 

SETUP 

R.PAR 


LCLA 

F.NPAR,KDISP»&.NPPEG,F,BPEG 


LCLA 

S.LOCf f.PREGl ♦^BREG2*F,INC 


LCLA 

M .&,K»fi,L»ML 


LCLC 

*,PR (5) 

(vNPAR 

SETA 

N'^SYSLIST 

R,T 

SETA 

1 

•SETREG 

A NOP 


R.K 

SETA 

f.K + 1 

M 

SETA 

K’»S.SYSLTST{R.K) 


SETA 

S.TL + f,L 


AIF 

(F.TL GT R) .SPANREG 

SvPR(M) 

SETC 

*S.RR (F.I ) .f.SYSLIST (8.K) • 

.COf^MA 

AIF 

(f.n: EO ?.NPAP),SAVE 

ML 

SETA 

• R.TL+1 

) 

AIF 

(A.TL GT 8).SPANCOM 

*.PP I ) 

SETC 

•?.RR (F.I ) , f • 


AGO 

.SFTREG 

.SPANCOM 

ANOP 


kl 

SETA 

R.I + 1 

S.TL 

SETA 

1 

fs.RP (S.I ) 

SETC 

• f • 


AGO 

.SFTREG 

.SPAh'RFG 

ANOP 



AIF 

(U. + P EQ R.TL) .NOSPAN 

^PP (?.I ) 

SETC 

•R.RR <8.1 ) .8.SYSLIST (^K) • ( 1 »8) 

Kl 

SETA 

M + 1 

S.RR (M ) 

SETC 

•<sSYSLIST (S.*<) * (?,1) 

ML 

SETA 

1 


AGO 

.COMMA 

, MO SPAN 

ANOP 


KJ 

SETA 

8.1 + 1 

^PR((vI) 

SETC 

•8.SYSLTST (8.K) » 

K.TL 

SETA 

KL 


AGO 

.COMMA 

.SAVF 

ANOP 



OS 

OF 

R.MAMF 

STM 

1 4 , 1 a , 1 ? ( n ) 


PALP 

ISfO 


ST 

13»18(n,15) 


MVC 

P (4, IP) ,86 (IS) 

S.OISP 

SETA 

86 + 8,MPAR*4 

FMPPPG 

SETA 

1 

8.RPFO 

SETA 

8.SYSLIST(1) 


PAL 

8.RPEG. ,8.DISP. (0,15) 


USING 

*,S.BR ( 1 ) .R.RR (E) .8.BP ( 3) .8.RR (4) .8.RR (5) 


OS 

1 RF 


OC 

A (*-7P) 

^LOC 

SETA 

40?0 
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r OB' TtIB 
POOR 



.GFK'ADDR 

fsNRRFG 

^LOC 

.RFG13 

•LOADDR 

5.0TSP 

f,NRPFG 

.CKRFGl 

f^NBPFG 

8.RPEG1 

R. DISP 
MNC 
.CKRFG? 
5.IMC 

5.NBPFG 

S, BRFG2 

^NPPFG 

S.RREG? 

.LDRFG 


.LDMPFG 


.MFMH 


AIF (8.MBPFG GF S.NPAP ) .REG 1 3 

SETA fi,NRRE6+l 

nC A(* + S.LOC) 

SETA R,LOC + 409? 

AGO .GFNADDP 

AIF (J.RREG EO 13) .LDADOR 

LR 13.?,PRFG 

ANOP 

SETA 12 

SETA 1 

AIF (S.MRREG EQ S»NPAR).MEND 

SETA R.NRPFG+1 

SETA S.SYSLIST (^NRREG) 

SETA S.DISP + R.INC*4 + 4 

SETA n 

ANOP 

SETA S,INC+1 

AIF (R.MBREG EQ ^NPAR) .LDRE6 

SETA S.NRREG+1 

SETA ^SYSLIST (S.NBREG) 

AIF (?^BRFG1+S,IMC EO 8.BREG2 ) . CKRFG2 

GFTA f^NRREG -1 

SETA S,SYSLTST (S.NPREG) 

AIF (?^,INC GT D.LDMREG 

L S,BREG1. »5.DISP. (0,1G) 

AGO .CKREGl 

ANOP 

LM S.BPFG1.»5,PREG2.»S.DISP. (0»13) 

AGO .CKREGl 

ANOP 

^^ENn 
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2.2 General Assembler Subroutines 

Assembler subroutines are used for strategic purposes to increa-se 
overall system efficiency. The following subroutines listed by CSECT name, 
with, the stated purpose, are documented in this section; 

1. AGIN: Supplies one file of binary read capability for the 

blocked records. 

2. AGOUT: Supplies two files of binary write capability for 

blocked records. 

3. BDAM: Supplies one file binary read-write capability for 

random access fixed records. 

4. RWA: When called unconditionally ends program execution and 

provides a system core dump. 

Subsequent reference to these subprograms assume the requirements 
of this section have been completed. 


2.2.1 AGIN 

2. 2. 1.1 FUNCTIONAL DESCRIPTION 


This CSECT provides one file binary read capability for files with 
fixed or fixed blocked records. The CSECT AGIN contains Two entry 
points: 0PENA6 which opens the input file on FT29F001 ; and A6READ which 

reads a single record for each call into the buffer address specified in 
the call. It is the programmer's responsibility to insure space and 
structure for the data record buffer with an array or common block 
declaration containing the necessary space and structure. 


2. 2. 1.2 MATHEMATICAL DESCRIPTION 


- none - 


2. 2. 1.3 PROGRAM LOAD 
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Job Control Language 


//AGINLOAD JOB (BR 9001 ,746) , ANDERSON, CLASS=F 

//STEPS EXEC ASMFCL,PARM.ASM='LOAD,NODECK' ,PARM.UED- LET,XREF 

//* 

//* LOAD SUBROUTINE AGIN 
//* 

//ASM.SYSLIB DD j^;\qLI3^DISP=SHR 

//ASM.SYSIN DD * 

- Source Code * 

//LKED.SYSIN DD * 

ALIAS OPENAG.AGREAD 
NAME AGIN(R) 

/* 

// 

Data Definition Description_ 


ASM STEP „ 

SYS^LIB - Points to library for macro SETUi 

SvIch OD - Library which will contain load module entry points 
in CSECT AGIN 

SYSIN - Link editor control statements for description refer to IBM link 
editor loader manual. 


2. 2. 1.4 DATA DESCRIPTION 
- none - 
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2.2. 1.5 FLOWCHART 


SUBROUTINE AGIN 
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2 . 2 . 1.6 


SOURCE CODE 


AGIN 

OPEMAG 

AGRFAD 

DONE 

INPUT 


PRINT NOGFN 

ENTRY OPFNAG, AGREAD 

CSECT 

SETUP 13 

OPEN INPUT 

L 1 .3 • 4 { 0 » 1 3 ) 

RETURN (14,12) *RC=0 
SETUP 13 
L 3.n(n,i) 

GET INPUT, (3) 

L 13,4(0,13) 

RETURN (14,12),RC=0 
CLOSE INPUT 
L 13,4(0,13) 

RETURN (14,l?),RC=0 

DCB DS0RG=PS»MACRF= (GM) , ODNAME=FT?PEO 01 , EODAD=DONE 
END 
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2.2.2 AGOUT 

2. 2. 2.1 FUNCTIONAL DESCRIPTION 

This CSECT provides two file binary write capability for files with 
fixed or fixed blocked records. The CSECT AGOUT contains three entry 
points: AGOPEN which opens both output files, FT31F001 and FT32F001 ; 
ERRWRT which writes a single record from a user buffer for each call to 
FT31F001; METWRT which writes a single record from a user buffer for 
each call to FT32F001. 

2. 2. 2. 2 MATH DESCRIPTION 
- none - 

2. 2. 2. 3 PROGRAM LOAD 


Job Control Language 


//AGOTLOAD JOB (BR9001 ,746) , ANDERSON, CLASS=F 

//STEP4 EXEC ASMFCL, PARM.ASM='LOAD, NODECK' ,PARM.LKED='LET,XREF' 
//* 

//* LOAD SUBROUTINE AGOUT 
//* 

//ASM.SYSLIB DD 

// DD DSN=EARTHSAT.MACLIB,DISP=SHR 

//ASM.SYSIN DD * 

- Source Code - 

//LKED.SYSLMOD DD DSN=EARTHSAT.LOADLIB,DISP=SHR, 

// SPACE=(CYL,(10,2.20)) 

//LKED.SYSIN DD * 

ALIAS AGOPEN ,ERRWRT ,METWRT , AGCLSE 
NAME AGOUT (R) 

/* 

// 

Data Definition Description 

ASM STEP 

SYSLIB - EarthSat Macro location 
LKED STEP 

SYSLMOD - Subroutine load module location 

SYSIN - Link editor control statements refer to IBM link 
editor and loader manual. 

2. 2. 2. 4 DATA DESCRIPTION 


- none - 
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2.2.2.B FLOWCHART 


SUBROUTINE AGOUT 






EEPRODUCIBILTrY OF THF 
ORIGINAL 
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2. 2. 2. 6 SOURCE CODE 


AGOUT 

AGOPEN 

ERRWRT 

METWRT 

AGCLSE 


OUTPUT 

OUTPU2 


PRINT NOGEN 

ENTRY AGOPEN fERRWRTtMETWRT, AGCLSE 
CSECT 
SETUP 13 

OPEN (OUTPUT* (OUTPUT) *0UTPU2* (OUTPUT) ) 

L 13*4(0*13) 

RETURN (14*12) *RC=0 
SETUP 13 
L 3*0 (0* 1) 

PUT OUTPUT* (3) 

L 13*4(0*13) 

RETURN (14*12)*RC=0 
SETUP 13 
L 3*0 (0*1) 

PUT 0UTPU2*(3) 

L 13*4(0*13) 

RETURN (14*12) *RC=0 
SETUP 13 
CLOSE OUTPU2 
CLOSE OUTPUT 
L 13*4(0*13) 

RETURN (14*12) *RC=0 

DCB DSORG=PS*MACRF=(PM) *DDNAME=FT31F001 
OCB OSORG=PS*MACRF=(PM) *DDNAME=FT32F00 1 
END 
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2.2.3 BDAM SUBROUTINE 

2. 2. 3.1 FUNCTIONAL DESCRIPTION 

The CSECT UPDATE contains four entry points: HSTOPN which opens the 
input, ouput file HISTORIC and defines the buffer location; HSTCLS which 
closes the HISTORIC file; HSTRD which reads the Ith record from HISTORIC 
where I is user supplied; HSTWRT which writes the Ith record to HISTORIC 
where I is user supplied. 

2.2.3. 2 MATH DESCRIPTION 
- none - 

2.2.3. 3 PROGRAM LOAD 


Job Control Language 


//BDAM JOB (BR9001 ,746), ANDERSON, CLASS=F 

//STEPS EXEC ASMFCL,PARM.ASM=' LOAD, NODECK' ,PARM.LKED='LET,XREF' 
//★ , 

//* * LOAD SUBROUTINE BDAM 
//* 

//ASM.SYSLIB DD 

// DD DSN=EARTHSAT.MACLIB,DISP=SHR 

//ASM. SYS IN DD * 


- Source Code - 

//LKED.SYSLMOD DD DSN=EARTHSAT.LOADLIB,DISP=SHR, 

// SPACE=(CYL, (10,2,20)) 

//LKED.SYSIN DD * 

ALIAS HSTOPN, HSTCLS, HSTRD, HSTWRT 
NAME UPDATE(R) 

/* 

// 

Data Definition Description 

ASM STEP 

SYSLIB - Points to library for macro SETUP 
LKED STEP 

SYSLMOD - Library which will contain load module entry points 
in CSECT AGIN 

SYSIN - Link editor control statements refer to IBM link 
editor loader manual . 


2.2. 3. 4 DATA DESCRIPTION 
- none - 
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REPRODUl" 
ORIGINAL i 


LI r.'i ir-h/-, 



2.2.3.B FLOWCHART 


SUBROUTINE BDAM 
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SUBROUTINE BDAM 
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2 . 2 . 3. 6 


uphate 

HSTOPN 

HSTCLS 

HSTPD 

H5TWRT 


« 

OPEN 


CLOSE 

REAP 


•a- 

write 


PFTUPN 

AREA 

POSITION 

RRAMCH 

HISTORIC 


SOURCE CODE 


CSECT 

ENTRY HSTOPN*HSTCLS*HSTROf HSTWRT 

LA ?,o 

R ?B(1S) 

LA 3,4 

R 20(15) 

LA ?,« 

R 1?(15> 

LA 2,1? 

SETUP 13 

LA 3,RRANCH 

L 3, 0(2, 3) 

RR 3 

L 2,0(1) 

ST 2, AREA 

OPEN (HISTORIC, UPDAT) 

R RETURN 

CLOSE historic 

R return 

L 2*0(1) 

L 2 , 0 ( R ) 

ST 2, POSITION 

L 3, area 

READ nECRR,DI * H I STOR I C , ( 3 ) » *S» , 0, POSIT ION + 1- 

CHECK DECRR 

R RETURN 

L 2*0(1) 

L 2,0(2) 

ST ?*POSITION 

L 3, AREA 

WRITE OErRW*DT*HISTORli? i!3) , ‘S' ,0,POSITION+1 

CHECK OFCRW 

L 13*4(13) 

RETURN (14,12) *RC=0 

DC F • 0 ♦ 

nc F » 0 ♦ 

DC A (OPFM*CLOSE, READ, WRITE) 

OCR DSOPG=oa,MACRE= {R lc,WIO ,DDNAME=HISTORIC,OPTCD=R 
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2.2.4 RWA SUBROUTINE 

2. 2. 4.1 FUNCTIONAL DESCRIPTION 

The CSECT RWA has one entry point: ABED which abends the program 
for dump with user 200 condition code. Useful in debugging under unusual 
conditions. 

2. 2. 4. 2 MATH DESCRIPTION 
- none - 

2. 2. 4. 3 PROGRAM LOAD 


//RWALOAD JOB (BR 9001 ,746) .ANDERSON, CLASS=F 

//STEP6 EXEC ASMFCL,PARM.ASM='LOAD,NODECK' ,PARM.LKED= LET.XREF 
//* 

//* LOAD SUBROUTINE ABEND 
//* 

//ASM.SYSLIB DD 

// DD DSN=EARTHSAT.MACLIB,DISP=SHR 

//ASM.SYSIN DD * 

//LKED.SYSLMOD DD DSN=EARTHSAT.LOAD,DISP=SHR, 

// SPACE=(CYL,(10,2,20)) 

//LKED.SYSIN DD * 

ALIAS ABED 
NAME RWA(R) 

/* 

// 

Data Definition Description 


ASM STEP 

SYSLIB - Points to library for macro SETUP 

LKED STEP 

SYSLMOD - Library which will contain load module entry points 
in CSECT AGIN 

SYSIN - LinK editor control statements refer to IBM link 
editor loader manual. 


2. 2. 4. 4 DATA DESCRIPTION 
- none - 
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2.2.4.B FLOWCHART 


SUBROUTINE RWA 
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2. 2. 4. 6 


RWA 

ABED 


SOURCE CODE 


ENTRY ABED 
CSECT 
SETUP 13 

ABEND 200*DUMP»STEP 
L 13*4(0*13) 

RETURN (14*12) *RC=0 
END 


3.0 HISTORIC AND SITE SPECIFIC DATA FILE GENERATION 

System requirements for site historical constants and seasonal 
initialization are met by generation of three data bases: 

1) the agronomic-historic (Figure 3.1); 

2) the meteorological-historic (Figure 3.2); 

3) the season agronomic (Figure 3.3). 

Each data base supplies specific information at the appropriate 
cell level required for system operation. The sequent diagrams, Figures 
3.1, 3.2, 3.3 relate the data and the programs required to generate a 
specific file. 

3.1 Agronomic-Historic File Generation 

Construction of the agronomic-historic file used to model plant 
growth requires three programs: 

1) HIST6EN which creates the record organization, calculates the 
latitude, longitude, of each i, j, k; 

2) HISTADD which enters the state, county, crop reporting district, 
soil type assignment for each i, j, k; 

3) HISTUP which enters the start BMT and planting date for each 
1 , j , k . 

The following information is contained in each record of this file: 

1) i, js k; 

2) latitude, longitude of i, j, k; 

3) state county, crop reporting district; 

4) soil type indicator; 

5) planting date. 
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HISTORIC AGRONOMIC FILE 


HISTGEN 


GENERATE 

SKELETON 

HISTORIC 

FILE 


HISTORIC 

SKELETON 

FILE 


HiSTADD 


HISTORIC 

AGRONOMIC 

DATA 


GENERATE 
HISTORIC 
DATA FILE 


INTERMEDIATE 

HISTORIC 

FILE 


HISTUP 


CHANGES TO 
AGRONOMIC 
FILE 



UPDATE SPECIFIC 


HISTORIC FILE 


AGRONOMIC 

HISTORIC 

FILE 


FIGURE 3.1 
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HISTORIC METEOROLOGICAL FILE 


STAIJ 



FIGURE 3.2 
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SITE SPECIFIC AGRONOMIC INFORMATION 



FIGURE 3.3 
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3.1.1 HISTGEN 


3. 1.1.1 Functional Description 

The program HISTGEN performs two primary functions: 

1) creates the record organization for the agronomic-historical 

file; 

2) assigns grid ij j* k and associated latitude-longitudes to 
each output record. 

Records are stored in ascending sequence according to i, j, k. The 
first record generated is a null record to allow random access of data 
records beginning with the key of 1. 

3. 1.1. 2 Mathematical Description 

Grid Mesh Structure : The grid mesh structure is rectangular to a 

polar stereographic projection of the northern hemisphere. The spacing 
between successive midpoints at mid-latitude is about 25 nautical 
miles. The j axis is parallel to the great circle defined by lOO^’E 
longitude and 80° W longitude. The North Pole is at (i=257, j=257). 

The equations relating latidude (lat) and longitude (Ion) to ijk are. 
i = 257 + r cos a 
j = 257 + r sin a 

where r = 249.635 tan ( (90°-1at)/2) 
a = 10 - Ion 

longitude is defined as positive in the eastern hemisphere and 
negative in the western. 

This grid mesh defines the points at which the meteorological input 
parameters are determined. 
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3. 1.1. 3 HISTGEN EXECUTION 


Job Control Language 


//HISTGEN JOB (BR9001 ,746) .ANDERSON, CLASS=F 
// EXEC FORTGCLG,PARM.FORT='MAP,ID' 
//FORT.SYSIN DD * 

- Source Deck - 


//LKED.SYSLIB DD 

// DD DSN=EARTHSAT.LOADLIB,DISP=SHR 

//G0.FT31F001 DD DSN=HISTS,DISP=(NEW,CATL6) ,VOL=SER=IPIWRK, 

// DCB=(RECFM=F,BLKSIZE=40) ,UNIT=2400-4 

//G0.FT32F001 DD DUMMY, DCB=BLKSIZE=80 

/* 

// 


Data Definition Description 


LKED STEP 
SYSLIB 


60 STEP 
FT06F001 
FT06F001 
FT31F001 
FT32F001 


Makes available additional 
supplied by EarthSat 


general subroutines 


No Data 

Printer file for FORTRAN error messages 
Intermediate agronomic historic file 
Unused output file 


3. 1.1. 4 DATA DESCRIPTION 


- none - 
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3.1. 1.5 FLOWCHART 


HISTGEN 
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3. 1.1. 6 SOURCE CODE 


IWTFGER*? STATF,rnijMTY,CRD*‘^OTL»PLMDAT ♦TSTSIT 
IK'TFGER<^4 T , J 
RFAL*4 ROWfCOL .X,Y 

PEAL»4 LAT,inw,YL''*TPM.YLOAnFt TNC 

COMMON! /HI ST/ I. ,M»K,LAT»LOM«YLnTPN* YLDADF»STATF» 
XCOUMTY ,CRn#‘=nTI- .PI MOAT^TSTSIT 
DATA IMC/0.F»0.B*-.5» 0.5*-.5*-.5»0.5*-.5/ 

CALL AGOPFM 

STATE=0 

COUN'TY = 0 

CRD=0 

SOTL=:0 

PLMDAT=0 

TSTSIT=n 

YLDTRN=0.0 

L = 0 

M = 0 

J-0 

J=0 

K = 0 

LAT=0.0 
LON=0.0 
YLnAOF=0.n 
CALL ERRWRTd ) 


MAJOC^ LOOP 

on so T = ?0f..P36 
L = T 

no SO J = 3.?S,3A? 

M=v) 

no so K=1.4 

C0L = FL0AT ( T) +TMC ( 1 ♦Y) 

ROH = FLOAT ( J) +TMC (?.K) 
X=(?S7,-RO''')/(?S7.-rOL) 

Y = ATAM (X ) 

LnN = -170 ,-S7, P9Sq->Y 
x= (Pnw-?57. ) / (?A9,F3S^;-SIN ( Y) ) 
LAT = 90 . + 1 14 , 1 S--*:-ATAM ( X ) 

CALL ERRWRT(L) 

SO COMTINUF 
STOP 
pMO 


RBPRODXjCIFF.Ti’f OF TtIB 
OEKHNAL r. ' i'OOB. 
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3.1.2 HISTADD 


3. 1.2.1 Functional Description 

The program HISTADD updates inplace the following items in the file 
generated by HIST6EN: 

1) county location of i, j; 

2) state location of i, j; 

3) crop reporting district of i, j; 

4) soil type of each i, j; 

5) produces an updated historical file. 

3. 1.2. 2 Mathematical Description 
- None - 

3. 1.2. 3 HISTADD EXECUTION 

Job Control Language 


//HISTADD JOB (BT9001 ,746) , BELKNAP ,CLASS=F 
//S2 EXEC F0RTGCL6, TIME. G0=5, REGION. G0=100K 
//FORT.SYSIN DD * 

- Source Deck - 

//LKED.SYSLIB DD 

// DD DSN=EARTHSAT.LOADLIB,DISP=SHR 
//GO.SYSIN DD * 

Unit 5 Data Deck 

//HISTORIC DD DSN=HISTS,DISP=(OLD, KEEP, KEEP) 

/* 

// 


Data Definition Description 


LKED STEP ^ , 

SYSLIB - Makes available additional general use 
subroutines supplied by EarthSat 


FT05F001 - Card data (Section 3. 1.2. 5) 

FT06F001 - Printer output (Section 3. 1.2. 7) 

HISTORIC - Intermediate agronomic historic file 
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3.1. 2.4 DATA DESCRIPTION 


FT05F001 INPUT CARD DATA 


1. SEQUENCE 




LOCATION AND 
SOILS DATA CARDS 


INDETERMINATE 
NO. OF CARDS 


LOCATION AND 
SOIL DATA CARD 
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LOCATION & SOILS DATA CARD 


Format: (13,14,12,411 ,4(1X, 211 ,12,11) 


Variable 

Format 

Cols 

Description 

11 

13 

1-3 

I Location 

J1 

14 

3-6 

J Location 

N1 

12 

7-8 

multiple K cell assignment 
indicator 

KG(N) 

411 

9-12 

K cell assignment for cell N 
in KG if applicable 

L6C1,1) 

11 

14 

State of I,J,K 

L6(2,J) 

11 

15 

Crop Reporting district of I,J,K 

LG(3,J) 

J2 

16-17 

County of I,J,K 

LG(4,J) 

11 

18 

Soil type of I,J,K 


LG(1,4) 

11 

32 

LG{4,4) 

11 

36 


Sample Card: 

ao? !343 ' itasa !l:4394 'i'4351- '1'4341' ■ m . • • i 


0 UUlJUtlUUUUUUiJUUUUUUUUUUUUUUUUUUUuuuuuuuuuuuuuuuuuuuuvuiiuvvvvv-.--- ’ . i 

1 , J ( S J 7 5 s 111 II i; II II IS IS IMI H !0 31 !! 3* 35 36 33 II 3S III II 33 31 II 15 IS II II 15 10 II « « II IS IS « II 19 50 51 51 S3 SI 55 55 51 5! 59 SO SI S3 03 01 65 SO $1 60 6! I. » II II H 15 10 II H 19 

111111)11 nil 11111 111 1 in 1111111111111111111111111111111111111111111111111 
222222222 2 2222222222222222222222222222222222222222222222222222222222222222222 
3333 3 3333 3333 33333 33333 333333333333333333333333333333333333333333333333333 

44444 444444444 44 44 44444 4 44444444444444444444444444444444444444444444444444 

5 5 5 5 5 5 5 5 5 5 i 5 b b b !i 5 b b 5 b b b b b b b 5 5 5 5 5 5 b 5 b 5 5 5 5 5 b 5 b S 5 5 5 5 b 5 5 b b 5 5 5 5 S 5 3 b b 5 5 5 b b 5 5 5 b 5 b 5 5 5 

e ( 6 6 6 6 B 6 B 6 6 6 B 6 6 5 C B B 6 D G B 6 G 6 6 C C G 6 6 6 6 fi e G 6 G 0 G 6 G B 6 C 6 G G 6 E C G 6 6 6 C G B 6 6 B 6 6 G G G G C 6 6 G D 6 6 6 G G G 6 

n 7 7 7 7 7 7 7 7 7 n 7 7 1 n n n 7 7 7 7 7 7 7 7 7 7 n n 7 n n 7 7 1 n ] 7 7 n n n 7 7 7 1 n n 7 n 7 n n n n 7 7 7 7 


! J 9 9 9 3 9 9 3 9 9 9 9 9 3 3 9 9 9 3 3 9 3 9 3 3 9 3 0 9 9 9 3 9 9 3 9 8 9 9 9 9 9 9 9 9 9 9 9 9 9 S 9 3 0 9 9 9 0 9 3 3 9 9 9 9 9 s 9 a 3 3 3 S 9 9 9 9 9 9 

,, j I 5 5 / 1 s I) n II 11 II IS IS 11 15 IS 50 )l u ?1 !l J5 36 II II 35 30 3l 1! 51 II J5 IS If IS IS 10 II II I! II IS 40 H II IS S'J 51 SI 51 M 55 %i al Si 51 01 61 6 ! 61 SI 65 SS 61 61 11 II II II II 15 1> 16 u II H II 
PRYOR SOBI 
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3. 1.2.5 FLOWCHART 


HISTADD 


RliJPBODUCfr-*^ 
OBlOiNAL i?.A- 



READOTART I. J 
NUMBER OF I, J (Nl).TO 
PROCESS, KEY VECTOR, 
CHARACTERISTICS 
VECTOR 


EOF 




YES 



KEY = KEY VECTOR 
ENTRY K 


OF TEE 

oa 10 pooia 


CALL SETUP 
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HIST ADD 
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SUBROUTINE HISTUP 
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SUBROUTINE SETUP 
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3,1.2. 6 SOURCE CODE 


INTPGER*4 KG(4) 

INTEGER*? LG (4*4) ♦ ISS (4) /4*0/* IDS (4*9) /36*0/* ICS (4*78) /31?*0/* 
♦ JCS(4*78) /31?*0/*I1 * J1*K1 *L1*L2*L3*L4 

CALL OPENHS 
N=0 

WRITE(6*999) 

999 FORMAK’l I J K STATE CRD CO* SOIL»/) 

5 READ (5* 1000*END=60) 1 1 * J1 *N1 *KG*L6 
1000 FORMAT (I3*I4*I2*4I1*4(1X*2I1*I2*I1) ) 

IF(Nl) 10*10*30 
10 DO 20 K=l*4 
K1=K 
K2=KG(K) 

CALL SETUP (K1 *K2 *LG* II *J1*N* ISS* IDS* ICS *JCS) 

20 CONTINUE 
60 TO 5 

30 DO 50 KK=1*M1 
DO 40 K=l*4 
K1=K 

CALL SETUP (K1,1,L6, II *J1*N*ISS*IDS*ICS* JCS) 

40 CONTINUE 
J1=J1+1 

IF ( J1*GT.36?) I1=I1+1 
IF ( Jl.GT.3f)2) Jl = 335 
50 CONTINUE 
GO TO 5 

f.0 WRITE(6*2000) 

2000 FORMAT (• ISTATE CRD CO* NO* CELLS*/) 

DO 90 1=1.4 

WRITE (6*3000) I.ISSd) 

3000 FORMAT(1HO.I3»16X,I4) 

DO 70 J=l*9 

70 IF(IDS(I*J) *GT*0) WRITE (6*4000) I*J*IDS(I*J) 

4000 FORMAT(1X*I3*5X*I1*10X*I4) 

DO 80 J=l*78 

80 IFdCSd.J) *GT*0) WRITE (6*5000) I * J * I CS ( I ♦ J ) * JCS ( I ♦ J ) 

5000 F0RMAT(1X*I3*9X.I2*5X*I4*9X*I3) 

90 CONTINUE 
CALL CLOSHS 
STOP 
END 
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SUBROUTINE SETUP (K1 »K2 »L6* 1 1 * J1 *N* I SS« IDS* ICS* JCS) 
INTEGER*? LG(4*4) *ISS(4) *IDS(4*9) *ICS(4*78) *JCS(4*78) * 
* I1*J1*K1*L1*L2*L3*L4 

L1=LG(1,K2) 

L2=LG(2*K2) 

L3=LG(3*K?) 

L4=LG(4*K2) 

5 CALL HISTUP{I1*J1*K1*L1*L2*L3*L4) 

IE(L4.GT*0) N=N+1 
NP=N 

IF<L4.EQ.O) NP=lini 

WRITE (6* 1000) 1 1 * J1 *K1 *L1 *L2*L3*L4*NP 

1000 FORMAT (IX *214 *12 *416*1 OX *14) 

IF(L4) 20*20*10 
10 ISS(L1)=ISS(L1)+1 

IDS(L1*L2)=IDS(L1*L2)+1 
ICS(L1*L3)=ICS(L1*L3)+1 
JCS(L1*L3)=JCS(L1*L3) +L2 
. 20 RETURN 
END 
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5URP0UTINE HlSTUP(I*JfK»S*CRfCNfSL) 

INTEGER*? I t J»K*S »CR»CN*SL* STATE *COUMTY* CRD f SOIL* PLNOATfTSTS IT 
REAL LAT*LON 

CC'MMON/HIST/II ♦ JJ*KK*LAT*LON*YLDTNO.yLOAOE*STATE*COUNTY* 

X o^o*soil*plnoat*tstsit 

INTEGER*? COLINC(4>/l*0*0*l/*ROWINC(4)/l*l*0*0/ 

INTEGER*? SOILA (54,56) 

COMMON/SLAR/SOILA 

Il=I-?05 

Jl=J-334 

K1=K 

N=ll?* (Il-l ) +4*( Jl-1) 

IF(N.LT.1,OR.N.6T.30?4) GO TO 10 
CALL HSTRD(N) 

STATE=S 

CRr'=CR 

COUNTY=CN 

SOTL=SL 

!?=(?* (1 1-1) ) ♦l+COLINC(Kl) 

J?=(?*(J1-1) )+l+ROWINC(Kl) 

SOILA(I?,J?)=SOIL 
CALL HSTWRT(N) 

RETURN 

in WRITE(6*?000) I,J,K,N 

?000 FORMAT(//*10X,»RECORD 4 ERROR *»4I4*//) 

RETURN 

END 


INTEGER^?^S0ILM54.S6) , STATE , COUNTY »CRD, SO IL ♦ PLNDAT ♦ TSTS I T 
integer*? char (G) /* • * » * 1 ' ♦ *2* * *3* * *4* , *5»/ rniiNTY. 

common/hist/ii*jj*kk.lat.lon,yldtnd*yldade*state*county, 

X CRn»SOIL*PLNnAT»TSTSTT 
COMMON/SLAP/SOILA 
CALL HSTOPN(II) 

DO 10 I=1*S4 
DO 1 0 J=1 
SOTLA(I*J)=0 
RETURN 

ENTRY CLOSHS 
CALL HSTCLS 
DO ?0 I=lfS4 
DO ?0 J=USf 
K=SOILA ( I » J) +1 
SOTLA(I»J)=CHAR(K) 

WRITE(^.?00n) 

WRITE (6» 2001 )( <S01LA(I»J) = 

WRITE (6*200?) 

EORMAT(1H1*//*60X* »SOTL MAP**/) 

FORMAT (40X*S4A1 ) 
format (IH l *//) 

RETURN 

FNO 
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3.1 .2.7 SAMPLE OUTPUT; 

1 J K 

STATE 

C9U 

o 

o 

• 

SOIL 


i!06 335 1 

0 

0 

0 

0 


206 335 2 

1 

2 

11 

1 

1 

206 335 3 

0 

0 

0 

0 


206 335 4 

0 

0 

0 

0 


206 33b 1 

1 

2 

11 

1 

2 

206 336 2 

1 

2 

11 

1 

3 

206 336 3 

1 

2 

1 1 

1 

4 

20b 336 4 

1 

2 

11 

1 

5 

206 337 1 

1 

2 

15 

1 

6 

206 337 2 

1 

2 

15 

1 

7 

206 337 3 

1 

2 

11 

1 

8 

206 337 4 

1 

2 

1 1 

1 

9 

206 33B 1 

1 

2 

16 

1 

10 

206 338 2 

1 

2 

16 

1 

11 

206 338 3 

1 

2 

16 

1 

12 

206 338 4 

1 

2 

15 

1 

13 

206 339 1 

1 

2 

16 

1 

14 

206 339 2 

1 

2 

16 

1 

15 

206 339 3 

1 

2 

16 

1 

16 

206 339 4 

1 

2 

16 

1 

17 

206 3^0 1 

1 

4 

29 

1 

18 

20b 340 2 

1 

4 

29 

1 

19 

206 340 3 

1 

4 

29 

1 

20 

206 340 4 

1 

4 

29 

1 

21 

206 341 1 

1 

4 

34 

1 

22 

206 341 2 

1 

4 

34 

1 

23 

206 341 3 

1 

4 

29 

1 

24 

206 341 4 

1 

4 

29 

1 

25 

206 342 1 

1 

4 

34 

1 

26 

20b 342 2 

1 

4 

34 

1 

2 7 

206 342 3 

1 

4 

34 

1 

28 

206 342 4 

1 

4 

34 

1 

29 

206 343 1 

1 

4 

34 

1 

30 

20b 343 2 

1 

4 

34 

1 

31 

206 343 3 

1 

4 

34 

1 

32 

206 343 4 

1 

4 

34 

1 

33 

20b 344 1 

1 

6 

44 

1 

34 

20b 344 2 

1 , ' 

6 

43 

1 

3 b 

206 344 3 

1 

6 

43 

1 

3b 

20b 344 4 

1 

6 

43 

1 

37 

206 345 1 

1 

6 

44 

1 

38 

206 345 2 

1 

6 

44 

1 

39 

206 345 3 

1 

6 

43 

1 

40 

206 345 4 

1 

6 

44 

1 

4 1 

206 346 1 

1 

6 

45 

1 

42 

206 346 2 

0 

0 

0 

0 


20b 346 3 

1 

6 

44 

1 

43 

206 346 4 

1 

6 

45 

1 

44 

206 3*f7 1 

0 

0 

0 

0 

•O' >>•»••!> 

206 347 2 

0 

0 

0 

0 

■O-ll-ttO’ 

20b 347 3 

0 

0 

0 

0 

■0 -0 ■O'O 

206 347 4 

0 

0 

0 

• 0 

■O -O- «■ 

20b 348 1 

0 

0 

0 

0 

■O'O'O'O 

206 348 2 

0 

0 

0 

n 

■o-a-'Oif 
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STATt 


NO. CELLS 


1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

I 

I 

i 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

'eL 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


CHl) CO. 


11 

519 

127 

119 

87 

80 

106 

10 

12 

11 

13 

7 

14 

16 

15 

5 

lb 

9 

17 

21 

18 

21 

19 

27 

20 

26 

21 

a 

22 

9 

23 

13 

24 

25 

25 

14 

26 

12 

2 7 

12 

29 

12 

3 0 

8 

31 

23 

32 

1 0 

34 

12 

35 

7 

36 

6 

37 

9 

4 3 

4 

44 

10 

45 

8 

‘+6 

15 

47 

6 

48 

10 

49 

27 

50 

9 

51 

4 

52 

27 

53 

21 

54 

a 

b5 

17 

5o 

20 

1 

426 

80 

51 

38 

59 

43 

36 

45 

43 

31 

14 

2 

14 

3 

15 

4 

13 

5 

12 

6 

12 

7 

S 

8 

7 


4 

10 

1 

1 1 

10 

12 

5 

13 

5 

14 

H 


20 

22 

14 

32 

10 

18 

42 

42 

54 

70 

24 

27 

39 
75 
42 
36 
36 
4d 
32 
92 

40 
48 

28 
24 
36 
24 
60 
4H 
90 
36 
60 

162 

63 

28 

189 

147 

56 

119 

140 


14 

14 

15 

13 
12 
12 
10 

14 
8 

14 
20 
10 
10 
1 6 
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SOIL MAH 


1 

ill 

nil 

mill.. 







1111111111111. 

111111111111111. •••• 

11111111111111111... 

1111111111111111., 

ililiUUUlliiiliiilii, 

iiillUinUiliilliliiilin,, 

1111441il‘.A44AA44A441111illlll3111 
lli<4.44 4ifS-44444444441111111 11131^1|'}lr, , , 

11144444444‘f4444444illllll3333j3iii3illl 
111444444444444444444lll3ni 1311111 3313113 


ti{n44;^444444444444i 13333411 13U 

.114111^41111444444411433333341131113331333313111 

;;!iiu:iUtUUUU;tuy4333i 1 lunn^ 

: i 444^4^33431 U 1311 Ui33n33Ul nan in J33 

:ii4i2i4444334431Unl3333U 333 n 


4444441 

!:44433illllll333333il3Miinirr 

..411311111331133111331111 u 1111 n 
....111331111333311111311111133111133333 

13313311 1^1 liii 11 i 1^3111 h 1333333 
:::;4iiii3iiiiiiiii 1 13311U 

...44111111111 111 lU 1111111111111111:^333 

..44411 illllllllinilllll 1 11111 11 11333. 

,.444liillllllillllllllllllllllj-}}H'f?'lM 

.111111111111111111111311111111113131133 

.1111111 1144 iiiiiiiiiiiiiiiiHHHHii'?f 

; : : : : : : I : :?:!3 33331 i n i n H I n n h 1 n 1 1 n 1 


• • • 






3111111111111111111111 
iiiiiiiiiiiiniiiiii 
1111111. ..111111111 
.. 11111 . 

.... 11 .. 


mill 

1 i 








..... 1 .. 
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3.1.3 HISTUP 


3. 1.3.1 Functional Description 

The program HISTUP performs the following functions: 

1) adds i, j planting date to agronomic historic file; 

2) adds i, j start BMT to agronomic historic file; 

3) generates ta-a final version of the agronomic historic file. 

3. 1.3. 2 Mathematical Description 
- None - 

3. 1.3. 3 HISTUP EXECUTION 

Job Control Language 

//HISTUP JOB (BT9001, 746), BELKNAP, CLASS=F 
//S2 EXEC FORTGCLG PARM. F0RT='ID, MAP' , TIME. G0=5 
//FORT-.SYSIN DD * 

- Source Deck - 


//LKED.SYSLIB DD 

// DD DSN=EARTHSAT.LOADLIB,DISP=SHR 

//G0.FT31F001 DD DSN=HIST.G1 ,DISP=(NEW CATLG) ,UNIT=2314, 
// SPACE={CYL*(10),RLSE,C0NTIG) 

// V0L=SER=IPIWRK,DCB=(RECFM=F,BLKSIZE=40) 

//G0.FT32F001 DD DUMMY, DCB=BLKSIZE=80 
//HISTORIC DD DSN=HISTS,DISP=(OLD,DELETE,KEEP) 

/* 

// 


Data Definition Description 


LKED STEP 

SYSLIB - Makes available general use subroutines 
generated by EarthSat 


GO STEP 

FT05F001 - No data cards 

FT06F001 - Printer output (Section 3. 1.3. 7) 

FT31F001 - Final agronomic historic file 

FT32F001 - Dummy file 

HISTORIC - Intermediate agronomic historic file 


3. 1.3. 4 DATA DESCRIPTION 


- none 
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EEPRO!}' 

m 


TTn*** 





3.1. 3.5 FLOWCHART 


HISTUP 
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3. 1.3, 6 SOURCE CODE 


INTEGER*2 STATE *COUNTYfCRO*SOIL*PLNDAT*TSTSIT 
REAL LAT*LON 

COMMON/HIST/I I *JJ,KK .LATtLON I YLDTND*YLDAOF* 
XSTATE*COUNTY*CRD*SOIL*PLNOAT*TSTSIT 
CALL HSTOPN(II) 

CALL AGOPEN 
11=0 
JJ=0 
KK=0 
LAT=0. 

LON=0. 

YLOTNO=0. 

YLOAOF=0. 

STATE=0 

COUNTY=0 

CRO=0 

SOIL=0 

PLNDAT=0 

TSTSIT=0 

CALL ERRWPT(II) 

CALL STARTClfl *l*IPL.HMT»ISOIL*IST*ICRD) 

DO 10 L=lf3024 
CALL HSTRD(L) 

11=11-205 

J1=JJ-S34 

K1=KK 

CALL START<tif J1»K1*IPL*BMT,IS0IL»IST*ICRD) 

PLNDAT=IPL 

IF(S0IL.E0.4)S0IL=27 

IF (SOIL.EO.S) S0IL=14 

CALL ERRWRT(TT) 

10 CONTINUE 

CALL HSTCLS 

STOP 

END 
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4,.:. ->iR. - 


SUBROUTINE START (I , J ,K t FLOAT » BMT * ISOIL » I ST 1 1 CRD ) 

INTEGER*? STATE*COUNTY»CRD*SOIL»PLNDAT»TSTSIT 
INTEGER*? PLDCRD( 9,4)/ 137 *145, 143. 145 *147 *146* 144* 0.0, 

X 144* 13?*131*1?7*1??*1?7* 13?*113* 117* 

X 150 *148 *143 *146 *146 *146 *150 *143 *138* 

X 137*137*0*130, 130*0*1?3*1?3*0/ 

INTEGER*? DESC(4,?8*?7)/30?4*0/ 

REAL LAT.LON 
INTEGER FLOAT 

REAL BMTS(9*4)/1,?7*0.7*0.8?*0,7*0.5*0.64*0.73*0.*0. * 

X 0«7*1»5*1«53*1»75*1.95*1«?5*1»50*?*40*?*05* 

X 0. 09* 0.?7* 0.73 *0.45* 0.45 *§,45* 0.09* 0.73* 1 .14, 

X 1.?4*1.?4 *0.00, 1.5? *1.5?, 0.00*1. 81, 1.81*0. 00/ 

DATA NCP/0/ 

COMMON/HIST/II *JJ*KK* LAT.LON* YLDTND.YLDADF* STATE.COUNTY* CRD* 
X SOIL.PLNDAT.TSTSIT 
IF(NCP.GT.O) GO TO ?0 
DO 10 IJ=1,30?4 
CALL HSTRD(IJ) 

Jl=JJ-334 

Il=II-?05 

DESC (KK* Jl.Il ) =100*CRD+10*SOIL+STATE 
10 CONTINUE 

?0 NCP=NCP+1 

IJ=OESC(K*J* I) 

IST=MOD(IJ*10) 

ICRD=IJ/100 

ISOIL=MOD(IJ,100) 

ISOIL=ISOIL/10 

PLDAT=151 

BMT=0. 

IFdJ.LT.l) RETURN 
PLDATsPLDCRD (ICRD. 1ST) 

BMT=BMTS(ICRD*IST) 

RETURN 

END 
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3.2 Meteorological Historic File Generation 

Construction of the meteorological historic file requires two 
programs : 

1) STAIJ, which generates the historical station intermediate 
meteorological station file; 

2) METGEN which adds the agronomic information and generates the 
final meteorological historical file. This file is necessary 
to proper utilization of meteorological station reports. The 
record in this file contains: 

1) i. j; 

2) Weights for station reports of six closest stations; 

3) BMT; 

4) planting date. 

3.2.1 STAIJ 

3. 2. 1.1 Functional Description 

The program STAIJ functions are: 

1) for each i, j locate the six closest weather stations; 

2) to compute the inverse distance weights of each station; 
Records are stored in ascending i, j and each record contains: 

1) i. j; 

2) six closest station numbers; 

3) distance weights for six closest stations. 

3. 2. 1.2 Mathematical Description 
Station weights: 

W = 1 • r i 

where w^ = station weight 

d„ = station m's distance from i, j 
m 
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d. = distance by station from i, j 
1 

Grid mesh structure: 

The equation relating latitude (LAT) to Longitude (LON) to i and j 
i = 257 + r cos a 
j = 257 + r sin a 

where 

r = 249.635 tan (( 90° -LAT) /2) 
a = 10 - LON 

and longitude is defined as positive in the eastern hemisphere 
and negative in the western 
3. 2. 1.3 STAIJ EXECUTION 

Job Control Language 

//STAIJ JOB (BT9001 J46) ,HEITKEMPER,CLASS=D 
//STl EXEC FORTGCLG, REGION. G0=95K, TIME. G0=05 
//FORT.SYSIN DO * 

Fortran Source Code 

//GO.SYSIN DD * 

Unit five (FT05F001) data cards 

//60.FT30F001 DD DSN=LHG. STAIJ ,UNIT=2400-4,DISP=(NEW, KEEP) , 

// DCB=( RECFM=FB ,LRECL=66 ,BLKSIZE=660) 

/* 

// 

Data Definition Statements Description 

Card data (Section 2.2.1 .4) 

Printer file (Section 2.2.1. 7) 
Intermediate meteorologic historic 
tape. 

3. 2. 1.4 DATA DESCRIPTION 


GO STEP 

FT05F001(SYSIN) 

FT06F001 

FT30F001 
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FT05F001 INPUT CARD DATA 
1. SEQUENCE 

STATION LOCATION 

34 CARDS CARD 




IV-55 



STATION LOCATION DATA CARD 


Format: (12, 

15, 5A4, 

F5, IX. F7.2) 





description 

VARIABLE 

FORMAT 

COLS 


NUM(I) 

12 

1- 2 

Ith Station Number 

ID(I) 

15 

3- 7 

Ith Station Identifier 

STA(I,1) 

A4 

8-11 


STA(I,2) 

A4 

12-15 

Ith Station Name 

STA(I,3) 

A4 

16-19 


STA(I,4) 

A4 

20-23 


STA(I,5) 

A4 

24-27 


LAT(I) 

F5.2 

28-32 

Ith Station Latitude 

LON(I) 

F7.2 

34-40 

Ith Station Longitude 


SAMPLE CARD: 




iQtiouuuoii inui 101011 DMitoiii 111 "* oijjj j;j? 1515 !, 

; ; ; ; ; ; i ; ;r;;’;’r;;‘r:"r;:r;;’r;r;rnr;r;;';r;r;;‘r;r, n ,,,,,,,,,,, m , 

j 2 tnimtitiiiii unnmnmnznmnmmnnmnzizinziininimin 

ojonmnmmn.ino.nni.oonm.o.nnnn.innnn.nomnnmonnon 

U.4.U.<.4U<.4U..U 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 < 4 4 . 4 4 4 4 4 

00000 00000000000000 00 00 00 oosoooooooooooooooooooooooooooooooooooooooooooo 

,,,„„,,n,:nnmnu,,,nM.nn,mn,n,nn,nnnnM,nunnn,nn 

_ _ - -..^r.nnAnnnnfi?OQDD0QflR 


, Ml. 0.1.1... ...I.' 

' ’ ! ! 1 , ! ! ‘ 1 1 1 5 !. ’ ”... i ’ .' ’ S. » !. ?. !. 1 1 ’ ’ ’ ■’ ’ ’ » » ■■ » ’ » » ’ ■■ ‘ ’ '■ " " " “ * " ' ” 
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ORIGINAL : . 


I 


LYCMETER DATA CARD 


Format: (213 

, 1215) 



VARIABLE 

FORMAT 

COLS 

DESCRIPTION 

I 

13 

1- 3 

Lycmeter I 

J 

13 

4- 6 

Lycmeter J 

I HOLDOJ) 

15 

7-11 

1st Station Number 

I H0LD(1,2) 

15 

12-16 

Weight Associated with Station 1 


I h6ld(6,i) 

15 

57-61 

I H0LD(6,2) 

15 

62-66 


SAMPLE CARD: 


■2Ll*3i54 ' ' '30 ■ '393 i : '34 


;*49 ' ' '29 ' '298 ! ' ' ' ! i ' 1' 


I f } J * 


'-r 


MM 


niiinimiimnniniiiimnnnnnn iiiniin inimn 


' 1 


IS sc 

n 1 n 


2222222222222222222222222222 2222222222222222222222222222222222222222222222222 
333 33333 333 3 333 333 33333333333333333333333333333333333333333333333333333333 

44444 44444444444444 444 4444444444444444444444444444444444444444444444444444444 

55555555555555 55555555555555555555555555555555555555555555555555555555555555555 

S 6 6 C 6 fi 6 6 6 B 6 G B G 6 8 6 B 6 6 6 6 B B 6 6 C 6 B 6 6 6 6 6 G G B 6 C 6 G 6 G G B 6 5 C 6 D 0 fi G G G 6 6 B B G C E G G G G f, G B C G C 0 C 0 6 B C B 

7 7 n ? ] I n 7 7 ] ] 7 7 7 7 n 7 7 7 7 7 7 7 7 7 7 ] 7 7 7 ] 7 7 7 7 n 7 7 7 ? 7 7 7 7 7 7 7 M 7 ] n 7 7 ) 7 n 7 n M 7 ? 7 7 1 3 7 I 7 7 n 


0899999999959999939999999 9999 999 999999999999999909999999999999999399939999999 

I I 1 i S t I I no II I) IJ H li 15 II H IS !S II II II IS » I! I' « IS >» II II II IS II II I' I® II ” II II II II I' I' I’ “ I'l ” “ II ” ‘I ■' ” '' " ' “ * 

PRYOR 50BI 


PROGRAM STAIJ 


3.2. 1.5 FLOWCHART 
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SUBROUTINE GRIDEM 













3. 2. 1.6 SOURCE CODE 


-I 


IN‘TF(iER*? TOniSC 

IMTFGEP^»4 STA(50fF) , rD(Sn) 

REAL *4 LAT (Fn ) •LON' (SO ) .DIS (Ffi ) 

ITO^=34 

LLL-^O 

DO ?:Z .T = I.TT0T 

RFAO (F,10) N'IIM(T) »in(I) , (STA(T,J) ,LAT(T) ,1 ON'(T) 

L0N| ( I ) =-LOM ( T) 

?? comtimue 

JO F0PMAT(T?*IF,c;/i4,pm^p^ 

CALL GRIDFM (L ATHLON. TO. STA. TTOT) 

PPIMTIR 

IP F0RMAT(lHl.^y.»I*,5X*».)'«Ay,iqjAi,4y,tp]f,3X,ic:;j**,4X,ippi^ 
^ 3X*»STA‘,4y.»P3*»lX*»STA»,4X,ip4»,3x,f9jfl#,4x,ipc , , 

* 3X * • STA » .4Y • • Df, * ) 

no 1 I=?06»R3? 

no 1 J=3?F«34P 
LLL=LLL+1 

IF (LLL .mp. GO TO 414 

PPINTlfl 

LLL = 0 

4l4 IF(T .FQ, POG .AMO, J ,FP. 341) CALL-FIJH 
IF(I ,FQ. poo .AMO. j ,FO, 36]) GO TO 1 
IF(I .FO.Pno .AMD. J .FO, 3A?) CALL FOR 
IF(I ,FO.?04 .AMO, J .FO, 3A3) GO TO 1 
F]=?57.-I 
F?=?F7.-J 
F3=T-?57. 

Y = ATAN (Fl/F?) 

CLOM=l . 394PG3P-Y 

CL AT = 1 ,S7 ] -P^'ATAM (F3/ ( P40, G35-!!-FTM (Y))) 

DO ? L=l»TTnT 
MUM (L) =L 

DGlIRsCOG (I .F71-LAT (L ) *. 0 174F3P9) *CnS ( 1 , R7 1 -CL AT ) 

^ ♦STM (l.S7]-LAT(L)<'.017453?9)^tsIM (1.F71-CLAT) 

* <^COS (LON(L)<*-.0174S3?R-CLOM) 

D9ljR = ARCOG ) 

OTS (L) =nsUH»3437.74F 
? COMTIMUE 
DO 3 K=1 .4 
L=K+1 

DO 4 M=L*TTOT 

IF rniS(K) ,LT. OTS(M)) GO TO 4 
D=OTS(K) 

M=MlJM(k') 

DIS (K) =niS (M) 
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NUM (K) =^'UM (M) 

DIS(M)=D 
NIUM(M)=N 
A COMTINUB 
3 CONTINUF 
DTOT=0,0 
on 7 K=l,6 

DTOT=(I,/nTS(t<) )+nTOT 
7 CONTINUF 
DO 5 K=l*6 
TOOISC (Kf 1 ) =Ml!M (K) 

TODisc(K»?) = (] ./(nTS(K)-H-nTOT) )'‘i’inoo. 

5 CONTINUF 

WPTTFOOfin) T*.J< ( (Toni^C(i^,L ) .L = l.?) ) 

in f^OR»'AT (?I3» 1?IB) 

WRTTF (6*110) I*J. ( (TOOrsc (K,L) *L = 1 .P) *K = 1 ,6) 

iin format(ix,?t6*]?ta) 

1 CONTINUF 
END 


SUBROUTINE ORTPFM (LAT.LON»in*STA. ITOT) 

IMTFGEP»4 STA(S0*S) « 10(60) 

RFAL*4 LAT(SO) iLOM(50) 

PRINT fl 
8 FORMAT(lHl) 

PRINT 10 

10 FORMAT (7X» » TO t , l?Xf 'STATION* * 1 OX ♦ *LAT» • LON' ♦ 6X , » T ' » 7X , ' J • ) 

00 11 I=1*IT0T 

r = ;?49.63S^'TAM( (1.S7I-1 AT ( I ) 017453P9) /?. ) 

A=.17453H9-L0N ( I) tt.017463?9 
C=267.+R'*C0S (A) 

0s?S7.+R«SIN (A) 

LON(I)=-LON(I) 

PRINT 2>I flD (T ) • (ST A ( I * J) ♦ J=1 «S) »LAT ( I ) ♦ L ON ( I ) f C t 0 

? format ( IX » I?»?X » IS,4X ♦SA4*3X9FS. 1 » 'N' «?X ,F5« 1 * * W ' «RX » 

* F6.1*3X»FS.l) 

11 CONTINUE 
RETURN 
ENO 


IV-63 



SUWPnUTINF FUP 
INTEGER^^? THOLn(ft.?) 

PEAD,(S»2in) T*J* ( (IH1L0(K»L) *L=1»?) •K=l*^> 
WRITE ('30f?10) I*J» ( (IHOL'MK,L) *L = 1*2) ♦K = l»f) 
WRITE (f»*21 1 ) I* J* ( ( IHOLD (K*L) . L = 1 » ? ) • K= 1 » 6 ) 
210 FORMAT (2I3* 

?ll F0PMAT(1X*?I6*12I#S) 

RFTURN 

END 
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3.2.1. 7 STAIJ SAMPLE OUTPUT 


I 

214 

214 

214 

214 

J 

342 

343 
,144 

1US 

STA 

14 

14 

14 

14 

Rl 

760 

572 

394 

296 

ST* 

13 

15 

15 

15 

R2 

54 

101 

152 

175 

ST* 

26 

13 

20 

R3 

51 

89 

126 

STA 

15 

20 

13 

n 

R4 

50 

SO 

114 

-LL5 

STA 

25 

26 
24 

ZJt 

R5 

41 

80 

108 

JL22_ 

STA 

24 

24 

21 

13 

R6 

40 

75 

104 

214 

346 

. 14 . 

239 

15 

133 

20 

170 

21 

lu6 

24 

125 

13 

114 

214 . 

347 

14 . 

199 

21 

195 

15 

177 

20 

176 

4 

129 

24 

122 

214 

348 

21 

220 

20 

172 

14 

163 

15 

164 

4 

151 

16 

122 

214 

349 

2i 

237 

4 

179 

20 

162 

15 

150 

14 

145 

16 

125 

214 

350 

21 

241 

4 

217 

20 

150 

15 

136 

14 

127 

16 

126 

214 

351 

4 

271 

21 

230 

20 

137 

16 

124 

15 

122 

14 

112 

214 

352 

4 

343 

21 

2 04 

20 

120 

16 

116 

29 

107 

15 

107 

2 14 

353 

4 

432 

21 

167 

29 

108 

16 

102 

20 

100 

15 

09 

214 

3 54 

4 

507 

21 

132 

29 

107 

16 

86 

It 

33 

20 

82 

214 . 

255. 

4 

497 

29 

121 

21 

119 

11 

94 

16 

83 

7 

. 83 

214 

356 


413 

29 

152 

21 

120 

11 

119 

7 

97 

34 

96 

214 

357 

4 

32 8 

29 

133 

11 

146 

21 

117 

34 

1 13 

7 

110 

214 

358 

4 

259 

29 

205 

11 

173 

34 

126 

30 

117 

7 

116 

2 14 

359 

29 

214 

4 

205 

11 

198 

34 

134 

30 

130 

7 

116 

2 14 

~360" 

11 

226 

29 

211 

4 

165 

30 

144 

34 

139 

7 

112 

214 

361 

11 

256 

29 

197 

30 

162 

34 

141 

4 

136 

7 

107 

214 

3 62 

11 

23 2 

30 

137 

29 

176 

34 

140 

4 

113 

7 

99 

215 

335 

26 

391 

27 

167 

25 

127 

13 

116 

14 

102 

28 

94 

215 

336 

26 

56 3 

27 

110 

25 

95 

13 

86 

14 

30 

28 

62 

215 

337 

26 

875 

25 

28 

27 

28 

14 

25 

13 

25 

24 

1 6 

215 

338 

.. 25 

473 

14 

127 

25 

117 

13 

107 

27 

lOl 

24 

73 

215„. 

.339 

26 

307 

14 

202 

25 

144 

13 

133 

27 

III 

15 

IQO 

215 

340 

. 14 

291 

26 

21.2 

25 

140 

13 

133 

15 

115 

24 

106 

.215 

341 

14 

424 

26 

139 

IS 

114 

25 

113 

13 

109 

24 

98 

215 

342 

... 14 

595 

15 

OS 

. 26 

82 

24 

75 

25 

75 

13 

74 

215 . 

343 

14 

507 

15 

. 135 

2^ 

97 

26 

88 

25 

86 

13 

85 

. 215 

344 

. 14 . 

,370 

. 15 

190 

24 

125 

20 

107 

13 

1 02 . 

25 

102 

215.. 

345 

14 

236 

15 

218 

24 

138 

20 

128 

21 

120 

13 

107 

215 

346 

14. 

233 

15 

222 

21 

144 

HO 

142 

24 

140 

16 

117 

215_. 

..347, 

15_. 

-.212 

... 14 

198 

21 

167 

20 . 

150 

24 

137 

4 

132 

215 

348 

15 

192 

21 

135 

14 

170 

4 

15d 

20 

150 

16 

142 

.215..,. 

349 

21. 

197 

4 

190 

15 

171 

14 

148 

16 

147 

20 

145 

.215 

. 350 

.-4,. 

,234. 

21 

199 

15 

151 

16 

143 

20 

136 

14 

130 

.*215_. 

-.351. 

4 

296 

. .21 

190 

- 16 

142 

15 

132 

20 

125 

14 

113 

215... 

.352 

.. -.A.. 

337 

21 

167 

16 

128 

15 

llO 

20 

103 

29 

93 

..215. 

J53 

4_ 

521 

— 21 

126 

16 

99 

29 

08 

20 

81 

...,l 5 

81 

. 215 . 

354 

4 

716 

21 

69 

29 

57 

16 

56 

1 1 

50 

7 

49 

.215 . 

355 

__4_. 

671 

29 

72 

21 

71 

11 

64 

7 

59 

16 

59 

215 

356 

4 

483 

29 

120 

11 

111 

21 

99 

7 

96 

5 

68 

215 

357 

4 

362 

29 

153 

1 1 

151 

7 

120 

21 

107 

5 

104 

215 

358 

4 

27 3 

11 

186 

29 

172 

7 

131 

30 

115 

34 

115 

215 

359 

11 

221 

4 

216 

29 

178 

7 

132 

30 

128 

34 

121 

215 

360 

11 

20 3 

29 

173 

4 

170 

30 

141 

7 

127 

34 

123 

215 

361 

11 

314 

29 

159 

30 

152 

4 

133 

34 

120 

7 

117 

■ 215 

362 

11 

369 

30 

166 

29 

138 

34 

113 

4 

107 

7 

104 

216 

335 

26 

332 

25 

157 

27 

147 

13 

112 

14 

103 

28 

91 

216 

3 36 

26 

485 

25 

139 

27 

111 

14 

95 

13 

92 

24 

74 

2 16 

337 

26 

546 

25 

128 

14 

91 

27 

86 

13 

79 

2 4 

6 7 

216 

338 

26 

413 

25 

167 

14 

132 

13 

99 

27 

97 

24 

90 

216 

339 

26 

■ 28 B 

25 

188 

14 

186 

13 

113 

24 

1 12 

15 

1 10 

216 

340 

14 

245 

26 

206 

25 

178 

15 

130 

24 

125 

13 

112 

216 

341 

14 

313 

26 

152 

25 

151 

15 

147 

24 

131 

13 

103 

216 

342 

14 

362 

15 

168 

24 

132 

25 

125 

26 

117 

13 

93 

216 

343 

14 

343 

15 

203 

24 

140 

25 

114 

26 

103 

13 

90 
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3.2.2 METGEN 


3. 2. 2.1 Functional Description 


The program METGEN 's functions are: 

1) add i, j start BMT to meteorological or historic file; 

2) add i, j planting date to meteorological historic file; 

3) generate final version of meteorological historic file. 

3. 2. 2. 2 Mathematical Description 

- None - 


3. 2. 2. 3 METGEN EXECUTION 


Job Control Language 


//METGEN JOB (BR9001 ,746) .ANDERSON ,CLASS=F 
// EXEC FORTGCLG, FARM. F0RT=' MAP, ID TIME. G0=5 
//FORT. SYS IN DD * 

- ^niirr.p Deck 


//LKED.SYSLIB DD 

// DD DSN='EARTHSAT.LOADLIB,DISP=SHR 
//G0.FT08F001 DD DSN=LJH.STAIJ,DISP=(OLD, KEEP, KEEP) 
//G0.FT09F001 DD OSN=RWA.STAIJ ,DISP=(NEW,CATLG) , 

// UNIT=2400,DCB=(RECFM=FB,LRECL=76,BLKSIE=760) 
//HISTORIC DD DSN=HIST.G1,DISP=(0LD,KEEP),UNIT=2314, 
/ / V0L=S ER= I P I WRK . DCB= ( RECFM=F , BLKS IZE=40 ) 

/* 

// 

Data Definition Description 


LKED STEP 
SYSLIB 


Makes available additional general use subroutines 
supplied by EarthSat 


GO STEP 
FT05F001 
FT06F001 
FT08F001 
FT09F001 
HISTORIC 


No data cards 
Printer output 

Input intermediate file created by program STAIJ 
Output file final meteorologic 
Agronomic historic file 
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SUBROUTINE START 
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3. 2. 2.6 SOURCE CODE 


INTEGER*2 ARRAY(HO) 

![MTEGER*2 input (16) 
integer PLNDAT 
DO 6 I=lt27 
DO 8 J=1 *28 

READ(9*1001) (INPUT(II) *11=1*1^) 
DO 7 K=lf4 

CALL START (!»J*K*PLNDAT*BMT) 
IF(PLNDAT.NE*151) GO TO 15 
7 CONTINUE 
15 CONTINUE 

INPUT (15)=PLNDAT 
INPUT(16)=BNT*1000. 

WPITE(8*1002) INPUT 
CONTINUE 
6 CONTINUE. 

1001 FORMAT (213*1215) 

1002 F0RMAT(2I3*1AI5) 

STOP 

END 
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SUBROUTINE START ( I ♦ J » K » PLDAT » «MT ) 

INTEGER«2 STATE » COUNTY » CRU * SO IL ♦ PLNU AT ♦ TSTS I T 
INTEGER'»2 PLDCRD (9*4) / 1 37 * 1 45 * 143 * 1 45 * 147 * 146 * 1 44 » 0 * 0 * 

X 144, 132*131 * 127, 122* 127, 132*1 13*1 17* 

X 150 *140 *143 •146 *146 *146 *150 *143* 138* 

X 137*137*0*130*130,0*123*123*0/ 

INTEGER*2 DESC {4,28*27) /3024<»0/ 

REAL LAT*LON 
INTEGER PLDAT 

REAL 8MTS(9*4)/1.27*0.7*0.a2*0,7*0.b*U.b4*0.73*0. ,U. * 

X 0,7 *1.5* 1.53* 1.75 ,1.9b* 1.75*1 .50,2.40*^.05* 

X 0.09, 0.27 *0.73* 0.45 *0.45, 0.45* 0.09 *0.73* 1 .14* 

X 1.24 *1.24, 0.00*1. .52, 1.52, 0.0 0*1. 81*1. 8 1*0. 00/ 

DATA NCP/0/ 

COMMON/HIST/I I *JJ*KK ,LAT* LON, YLOTNU* YLb/.'\DF*STATE ,CUUiJTY *CkU , 

X SOIL*PLNDAT,TSTSTT 
IF(NCP.GT.O) GO TO 20 
CALL HSTOPN(II) 

DO 10 IJ=1*3024 
CALL HSTRD(IJ) 

Jl=JJ-334 

11=11-205 

DESC (KK,J1, Il)=100*CRD+UH^SOIL+STATt 
10 CONTINUE 

20 NCP=NCP+1 

IJ=DESC (K* J, I ) 

IST=MOD(IJ,10) 

ICRD=IJ/10C 

ISOIL=MOD(IJ*100) 

ISOIL=ISOIL/lO 

PLDAT=151 

BMT=0. 

IF(IJ.LT.l) RETURN 
PLDAT=PLDCRD (ICRO, 1ST) 

8MT=BMTS (ICRU,IST) 

RETURN 

END 
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3.3 Initial Season Agronomic File Generation 

Construction of the season agronomic file is accomplished by the 
program INITIAL. This file contains the following information: 

1) i, j, k; 

2) Julian date; 

3) soil moisture, three-layer capacity; 

4) ET of each layer; 

5) ETP; 

6) average ETP; 

7) precipitation; 

8) average stress; 

9) maximum and minimum temperature; 

10) total to-date runoff; 

11) stress and BMT interval; 

12) number of days in BMT interval; 

13) number of crop days; 

14) soil type; 

15) net radiation. 

This file is the prototype of the file used in the agronomic growth section 
for the storage and retrieval of daily growth results. 

3.3.1 INITIAL 

3. 3. 1.1 Functional Description 

The program INITIAL'S functions are: 

1) to initialise the agronomic variables and constants; 

2) to locate geographically each i, j, k in the square matrix; 

3) to generate the initial season agronomic growth file. 

3. 3. 1.2 Mathematical Description 
- None - 
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3. 3. 1.3 INITIAL EXECUTION 


Job Control Language 


//INITIAL JOB (BT9001, 746), BELKNAP. CLASS=F 
//SI EXEC F0RT6CLG,PARM.F0RT='ID,MAP‘ ,TIME,G0=5 
//FORT.SYSIN DD * 


- Source Deck - 


//LKED.SYSLIB DD 

// DD DSN=EARTHSAT.LOADLIB,DISP=SHR 

//60.SYSUDUMP DD SYS0UT=A 

/ /GO. FTl OFOOl DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=l 33 ,BLKSIZE-1 330) 
//FT31F001 DD DSN=LACIE. START, DISP=(NEW CATL6) ,UNIT=2314, 

// V0L=SER=IPIWRK,SPACE={CYL,(10) ,RLSE,CONTIG) , 

// DCB=(RECFM=F,LRECL=108,BLKSIZE=108) 

//G0.FT32F001 DD DUMMY ,DCB=BLKSIZE=80 

//HISTORIC DD DSN=HIST.G1,DISP=(0LD,KEEP),UNIT=2314, 

// V0L=SER=IPIWRK,DCB=(RECFM=F,BLKSIZE=40) 

//GO.SYSIN DD * 

- Unit 5 data deck - 

// 


Data Definition Description 


LKED STEP 

SYSLIB - Makes available additional general use 
subroutines supplied by EarthSat 


GO STEP 
FT05F001 
FT06F001 
FT31F001 
FT32F001 
HISTORIC 


Data file to be read 
Printer output 

Output Site-Season agronomic file 
Unused output file DCB necessary 
Historical agronomic file 


3. 3. 1.4 DATA DESCRIPTION 
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FT05F001 INPUT CARD DATA 


1. SEQUENCE 



INDETERMINATE 
NO. OF CARDS 


GROWTH DAYS 
DATA CARD 
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GROWTH DAYS DATA CARD 


Format: 

(211.512) 

Variable 


IS! 

11 

ICl 

11 

NC(N) 

512 


Cols 


Description 


1 State . . 

2 Crop reporting district 

3_12 Number of days growth in 

BMT interval N-1 to N for 
state & CRD 


Sample Card: 

0 0 0 0 D 0 0 0 0 0 D 0 0 0 fl 0 0 0 0 0 0 a 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 O 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 O 0 0 0 0 0 0 0 0 0 0 0 

1 } 3 4 5 6 t » ) ID II I!I3 14 15 16 II II 19 iO 31 33 33 34 35 36 31 38 39 39 31 33 33 34 35 36 31 39 33 40 41 43 43 44 45 46 43 40 49 50 51 53 53 54 55 56 51 59 5J 60 61 63 63 61 65 66 67 60 69 10 II 73 33 14 15 16 II 10 19 09 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ] 1 11 1 1 1 1 1 n n 1 1 1 1 11 11 1 1 II 1 11 1 11 II 1 1 11 1 1 11 1 1 1 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 Z 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 Z 2 2 2 2 2 2 2 2 2 2 2 2 

33333333333333333333333333333333333333333333333333333333333333333333333333333333 

4 4 4 4 4 4 il 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 -1 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 U 4 4 <! 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 
55555555555555555555555555555555555555555555555555555555555555555555555555555555 

5 S fi 6 E 6 f) 5 6 6 6 E 6 6 6 G 0 6 6 6 6 B 6 6 fi G G e C 0 6 B B B 6 6 D B B fi 6 0 6 6 6 B G 6 E 6 6 G B B 5 G 0 e G D G G B G 0 B 6 G C 6 G 0 6 0 6 6 6 6 G 

7 7 7 7 7 7 7 1 n 7 7 7 7 7 ] 7 7 7 7 7 7 7 7 7 7 n 7 7 7 7 7 7 7 7 7 7 n 7 7 7 7 7 7 7 n 1 7 7 7 1 1 7 7 1 7 7 n 7 7 ) 7 7 n 71 n 7 n 1 7 n 

8 B * 8 8 B a 8 e 8 8 B B E 6 B B e B 8 8 8 8 G B 8 B 8 8 B B 8 B B a B 8 8 B 8 8 a 8 8 8 8 B 8 8 8 e 0 8 8 8 8 8 8 8 8 6 8 G B 8 8 8 8 B 8 8 B 8 8 8 G 6 8 8 8 

? 3 S 9 9 9 9 9 9 3 9 9 9 9 9 9 9 9 9 9 9 9 3 9 9 9 9 9 3 3 9 9 9 9 9 3 9 9 9 9 9 9 8 9 9 3 9 9 9 9 9 9 3 9 9 9 0 3 9 9 0 9 9 9 8 9 9 3 9 8 9 3 9 3 3 3 9 9 9 

T . J t 5 6 I 6 0 10 II I) 11 II 15 16 11 II IJ 30 11 1! 73 M 15 16 11 10 10 10 II 3! 31 V 15 16 31 30 19 10 (1 17 41 44 45 46 41 41 49 50 51 57 51 54 55 56 51 50 5'l 60 Gt 67 61 64 65 66 61 66 69 10 H 11 11 H H C. II H 19 00 

Pf^TOR 5001 
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3.3. 1.5 FLOWCHART 


INITIAL 




CALL HSTCLS 


r 


STOP 







INITIAL 





76 








SUBROUTINE START 
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3.3.1. 6 SOURCE CODE 


INTEGER*2 NDAY (5) *CRPDAYf TSOlL»RAO»STATE*COUNTY#CRDfSOILt 
X PLNDAT*TSTSITtFl*NC(5) 

INTEGER*2 FI tFILLER (S3) 

INTE6ER*2 NDCRO (5»9f 4)/180«»0/ 

REAL LAT»LON*SM (3) »ET (3) tSTRINT (5) 

INTEGER PLDAT ^ -7u 

REAL FCL ( 3* 6) /8. 75* 35. * 1 31.25 *8. 75 » 35. *131. 25 *5. 75 *23. Of 86, 25* 

115. *60. *0. *8. 75 *35. *131 .25 *3*0./ 

REAL STSTRS(4)/.3*.5*.4*.3/ « n 

REAL SMI (9*4)/7.97*4.07*2.38*6.87*7.79*7.81*4.64*0.*0.* 

X 5.29*6.15*5.32*3.80*4.46*6.62*3.80*2.41*5.00* 

X 6.00*7.00*5.53*6.29*8.00*8.00*7.35*8.00*7.10* 

X 7.00*7.00*7.00^7.00*8.00*3*8.00/ , „ , n n 

REAL CAP (9*4) /9*8.0*5*8. 0*6.0 *3*8.0 *6.0*7. 0*7.0 *6*8.0* 

X 4*7. 0*8. 0*7. 0*3*8. 0/ 

COMMON/HIST/I I ♦ JJ*Kk'*LAT* LON* YLDTND fYLDADF* STATE* COUNTY* CRD* SOIL 

^COMMON/ARCHIV/I * J*K* JUL*BMT*SM*ET*ETP*ETPAVE*PRECIP*STRESS*TMAX* 

X TWIN *CRNOFF*STRINT*NDAY*CRPDAY*TSOIL* RAD 

NOUT=0 
F1 = 0 

DO 5 J=l*53 
FILLER (J)=0 


RAD=0 

ETP=0. 

STRESS=0. 

ETPAVE=0. 

TMAX=0. 

TMIN=0. 

TSOIL=0 

JUL=151 

CRNOFF=0. 

PRECIP=0. 

DO 10 IJ=1*3 

10 ET(IJ)=0. , , 

12 READ(5*2000*END=15) ISl * ICl * (NC ( I J) * IU=1 *5) 

2000 FORMAT (211*512) 

DO 14 IJ=1*5 

14 N0CRD(IJ*IC1*IS1)=NC(IJ) 

GO TO 12 

15 CONTINUE 
CALL AGOPEN 
CALL HSTOPN(II) 

00 100 IJK=1*3024 
CALL HSTRD(IJK) 
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Till': 


^ r 9 V' 



I=II 

J=JJ 

K=KK 

12=1-205 

J2=J-334 

IF (SOIL.NE.O) 60 TO 20 
C GENERATE FILLER RECORD 

CALL ERRWRT(Fl) 

GO TO 100 

C GROWTH CELL 

?0 CALL START(I2*J2»KfPLDAT»BMT»rS0IL»IST»lCRD> 

PCT=SMI aCRD»IST)/CAP(ICRD»IST) 

IF (PCT.GT.1.0) PCT=1.0 
DO 30 JK=1*3 

3 0 SM( JK) =PCT<^FCL ( JK» ISOIL) 

C CALCULATE CUMULATIVE DAYS AND CUMULATIVE STRESS 

STR=STSTRS ( 1ST) 

DO 40 IJ=1»5 
IK=MDCRD ( IvJ*ICRD»IST) 

NDAY(IJ)=IK 

40 STRINT (IJ)=STR^*FLOAT (IK) 

CRPDAY=152-PLDAT 
CALL ERRWRT(I) 

NOUT=NOUT+l 

IF (NOUT.GT.lOO) GO TO 100 

WRITE (10f2001) I f J »K» JUL»BMT » (SM(Il) ♦Il-1»3) * (ET(o3 ) »Ji-i»3) » 

X ETP*ETPAVE,PPFC IP, STRESS, TMAX*TMIN»CRN0FF, (STUNT (Kl),Kl-l,b), 
X (NDAY(Ll) .Ll = l,5) , CRPDAY , TSOIL ,RAD 
2001 FORMAT (23A4,8A2) 

100 CONTINUE 

CALL HS.TCLS 

STOP 

END 
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DAILY METEOROLOGICAL DATA EDITS 


CHECK 



FIGURE 4,1 











4.0 METEOROLOGICAL DAILY DATA EDITS 

The meteorological system uses as inputs the daily station reports 
and interpreted satellite imagery. The necessity for correct digital 
data produced a set of programs {Figure 4.1) to detect and display data 
errors: 

1. CHECK edits satellite data, flagging errors for manual cor- 
rection. 

2. GONOGO checks data input for proper organization. 

Both programs print the appropriate meteorological data in a structured 
printout for analysis by meteorologists. Data which has been processed 
through these programs then becomes a primary input to the agro- 
meteorological-pred system. 

4.1 Satellite Data Edits 

4.1.1 CHECK 

4. 1.1.1 Functional Description 

Interpretation of SMS visible and infrared imagery are manually 
performed, coded, and the result then keypunched. Manual errors in both 
the coding and punching process will occur. Detection of these errors 
is the primary function of the program CHECK. The program CHECK checks 
the following for consistency: 

1) the number of (latitude, longitude) pairs is equal to the 
number of vertices; 

2) the latitude and longitude limits are within the correct 
limits; 

3) the number of clcud intensity eights does not exceed eight. 
Each satellite data card is printed for manual verification, and errors 
printed if detected. 

4. 1.1. 2 Mathematical Description 
- none - 
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4. 1.1. 3 CHECK EXECUTION 


Job Control Language 


//CHECK JOB (BR9001 ,746), ANDERSON, CLASS=F 
//STl EXEC FORTGCLG,PARM.FORT='MAP,ID' 
//FORT. SYS IN DD * 

- Source Deck 


//GO.SYSIN DD * 

Unit 5 data cards 

/* 

// 


Data Definition Description 


FT05F0U1 - Data cards 
FT06F001 - Printer output 


4. 1.1. 4 DATA DESCRIPTION 
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INPUT DA TA CARDS FOR CHECK PROGRAM 


1. SEQUENCE 




INDETERMINATE SATELLITE DATA CARD 

NO. OF CARDS 
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CLOUD POLYGON CARD 


Format: (13, 14, 1011 (9F3.1, F4.1)) 


Variable 

Format 

Cols 

^ DAY(I) 

13 

1-3 

■ TIME(I) 

14 

4-7 

' CLOUD(l,I) 

11 

8 

CL0UD(2,I) 

11 

9 

CL0UD(3,I) 

11 

10 

j CL0UD{4,I) 

11 

11 

1 CLOUD(5,I) 

11 

12 

' CL0UD(6,I) 

11 

13 

CLOUD(7,I) 

11 

14 

CL0UD(8,n 

11 

15 

CL0UD(9,I) 

11 

16 

K(I) 

11 


LAT(1,I) 

F3.1 

18-; 

XLO(l) LON(l 

J)F4.1 

21-; 


XLA(K) LAT(K,I)F3.1 
XLO(K) LAT(K,I)F4.1 
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Day of the Ith Polygon 

GMT Time of Satellite Image of 
Ith Polygon . 

8th of Cumulonimbus clouds in polygon - 
Visible images 

8th of Nimbostratus clouds in polygon - 

Visible images , , . 

8th of Cumulus Congestus clouds in polygon 

Visible images 

8th of Stratus clouds in polygon - 
Visible images 

8th of Stratocumulus clouds in polygon - 
Visible images 

8th of Cumulus clouds in polygon - 
Visible images 

8th of Cirus clouds in polygon - 
Visible images 

8th of Brightest area in IR Image 

8th of Bright area in IR Image 

Number of Polygon Vertices 

Latitude of First Polygon Corner 

Longitude of First Polygon Corner 

Latitude and Longitude of Nth Polygon 
Corner 


Sample Card 

( i 1 I ■ • ’1*28438 ’9834831 QC'04S31'0404921C‘4E!4901 08 u 5L'U1 l'9553Ql '-'3U54Q1 Ul'J ' 


ina flflOQOUBPODIlOflOOODDOOOOOO OOOD 0 OflOO ODOfl 0 Q 0 0 0000 0 0 00 0 00000 00 00 

I J ) ( s t 1 I s 10 n u u H IS IE II II II M II n « H « ie h « n a n n a « « ’-s si « 33 « »' '3 ” « is ii is is so si si si » ss sb si se so eo ei bi ei si bs es v a « lo n ;i » ii is is i. .i n 

n n • 1 1 1 n n 1 m m n n 1 1 mill 1 1 1 1 n 1 1 1 1 1 1 mm mm mm i mum 

II 111 nil It 11 H 222222222222222222 2 22222 222 222222222222222 22222222222222222 2 2 

3 3 3 3 3 3 3 3 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 1 3 3 j 

44444444444444444 444444 444444 4444 4 4444 4 444444444444444444444 444444444444 

555555 5555555555555555 5555555555555555555555555555 55555 555555 55555 5555555 
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4.1. 1.5 FLOWCHART 


CHE ;k 



IV-85 











4 . 1 , 1 . 6 SOURCE CODE 


INTEGER*? STAR (300) *DAY (300) fTIME (300) fCLOUD (300*9) (300) * 

9EAL*4 LAT (300*9) *LON (300*9) 

N=1 


« 

« 

« 

« 

« 


KKK = 0 

WRITE ( 6 * 1 1 0 ) .-r>. -I V iMc* 1 y . I rr I* . 1 X • * ST • 

-0RMAT(1H1.?X,.DAY-.?X.*TIME-,1X, CR .IX.-NS ,1X, CC ,1X ST 

1X**SC**1X**CU»*1X*»CI»*1X**VB'*1X*»PT'*?X**K'*3X* LAT *ix* 

♦LON* *2X**LAT»*1X* ‘LON* *?X*’LAT**1X* 

• LON* *2X* 'LAT* *IX* »LOM* *2X* *LAT» *1X, 


*LON* *2X*'LAT* *1X* *LON**2X* *LAT* ,1X* 

* ilON**?X*'LAT**1X**LOM'*2X*'LAT**1X**LON') 

10 READ(5.120,ENn=20) OAY <N) .TIME (N) . < CLOUtHM, I ) , 1 = 1 .Rl .X ( N) , 

* (LAT(N*I) *LON(N*T) *I=l»9) 


NsN+1 
GO TO 10 

1?0 FORMAT (13*14*1011. 9(F3.1*F4.D) 
20 N=M-1 

00 30 1=1 *N 

STAR(I)=0 

KKK=KKK+1 

IF (KKK.NE. 29) GO TO 40 


KKK = 0 

WRITE(6*110) 

40 DO flO J=l*9 

IF (LAT(I*J) .EO.0.0) GO TO 90 
80 CONTINUE 

90 IF(J .LT.9) J=J-1 ^ . D 

IF(LAT(I*9) .EQ. O-oO .AND. J .EO. 9) J-B 
IF(K(I) .EO. J> GO TO GO 
STAR ( I ) =99 
WRITE (6*230) 

230 F0RMAT(1X*'FPR0R IN K*) 

GO DO 180 KK=1.J 

IF (LAT ( I *KK) .LT. 37. .OR. L AT ( I * KK ) . GT . 
IF (LON ( I *KK) .LT. 91, .OR. LOM ( I * KK ) . GT . 
180 CONTINUE 
GO TO 270 
185 STAR(I)=99 

WRITF(6*240) 

?A0 FORMAT (IX* 'LAT OR LON EXCEEDS LIMITS') 
?70 ICT=0 

DO 46 LL=1.9 
ICT=ICT+CLnUD(I*LL) 


56.) GO TO 1B5 
115.) GO TO 185 


46 CONTINUE 

IF(ICT.GT.a) GO TO 19G 
60 TO 190 
195 WRTTE(6*250) 

STAR (I) =99 


250 

190 


(MAT (IX* 'ERROR IN CLOUD SUMS') 

TE (6*130) DAY(I) .TIME (I) * (CLOUD ( I . J) 


K ( I) . 


KEPRODUcr:i:/'xr thi<: 

OEiGmi- X'. 
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* (LAT(IfJ) *LON(I*J> ♦STAP(I) 

130 FORMAT (3Xt 1 3*2X>T4,9(?X,I1) , ?X » 1 1 , ?X ,9 ( 1 X * F3 . 0 * 1 X »F4 e 0 ) ♦ 1 X » 1 2/) 
30 CONTINUE 
END 
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D«v 

TIME 

45 

ce 

0 

NS 

0 

cc 

0 

ST 

0 

sc 

0 

cu 

0 

Cl 

0 

V8 

5 

8T 

1 

K 

5 

LAT 

4b. 

LON UAT 
in. 46. 

LON LAT 
lOfl. 46. 

LON LAT 
109. 46. 

LON 

111. 

LAT LON 
48.- 112. 

LAT 

0. 

LON 

0. 

LAT 

0. 

LON 

0. 

LAT 

0. 

LON 

0. 

LAT 

0. 

LON 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

0 

4 

4 

45. 

109. 45. 

lOri. 44. 

109. 45. 

no. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

46 

0 

0 

0 

0 

0 

0 

0 

0 

5 

4 

44. 

107. 42. 

105. 40. 

106. 43. 

lOfl. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

0 

5 

4 

42. 

105. 42. 

104. 4U. 

104. 40. 

106. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

5 

0 

5 

43. 

103. 41. 

103. 41. 

104. 42. 

104. 

43. 104. 

0. 

0. 

0. 

G. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

u 

0 

0 

5 

0 

4 

42. 

100. 42. 

100. •»!. 

102. *2. 

102. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

0 

5 

4 

44. 

100. 43. 

100. 42. 

102. 43. 

102. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

Q. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

5 

0 

4 

45. 

94. 43. 

93. 42. 

97. 43. 

07. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

fl 

0 

3 

45. 

103. 45. 

102. 42. 

105. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

0 

5 

7 

45. 

105. 46. 

104. 46. 

104. 46. 

103. 

45. 103. 

44. 

104. 

45. 

106. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

8 

0 

4 

47. 

102. 46. 

103. 46. 

105. 47. 

104. 

0. 

0, 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

0 

6 

4 

50. 

97. 4y. 

95. 46. 

99. 49. 

100. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

0 

2 

4 

41. 

104. 41. 

102. 39. 

102. 39. 

104. 

0. 

0. 

0. 

0. 

u. 

0. 

0. 

0. 

0. 

0. 

0 

234 

45 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

40 . 

97. 40. 

96. 39. 

96. 39. 

97. 

0. 

0. 

0. 

G. 

0. 

0. 

0. 

0. 

0. 

0. 

Q 

234 

f.45 

0 

0 

0 

0 

0 

0 

0 

2 

6 

7 

50. 

109. 49. 

no. 49. 

111. 48. 

in. 

4fl. no. 

45. 

in. 

49. 

113., 

0. 

0. 

0. 

0. 

0 

234 

545 

0 

0 

0 

0 

0 

0 

0 

0 

3 

4 

45. 

109. 45. 

107. 44. 

109. 45. 

no. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

545 

0 

0 

0 

0 

0 

0 

0 

0 

2 

3 

45. 

107. 42. 

lOH. 44. 

109. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

G. 

0 

234 

545 

0 

0 

0 

0 

0 

0 

0 

3 

5 

4 

43. 

10?. 41. 

102. 41. 

104. 42. 

103. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

54S 

0 

0 

0 

0 

0 

0 

0 

0 

5 

3 

4?. 

101. 41. 

100, 41. 

102. 0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

545 

0 

0 

0 

0 

0 

n 

0 

fl 

0 

4 

44. 

100. 43. 

101. 42. 

103. 44. 

102. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

545 

0 

0 

0 

0 

0 

0 

0 

fl 

0 

4 

4h . 

94. *3. 

93. 41. 

100. 43. 

100. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

545 

0 

0 

0 

0 

0 

0 

0 

6 

1 


52. 

102. 49. 

1U6. 49. 

109. 50. 

109. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

545 

0 

0 

n 

0 

0 

0 

fl 

5 

2 

V 

50. 

105. 46. 

10b- 48. 

106. 47. 

108. 

47. no. 

48. 

no. 

48. 

lOB. 

49. 

108. 

49. 

106. 

0 

234 

545 

0 

0 

0 

0 

0 

0 

0 

8 

0 

4 

4b. 

102. 46. 

101. *.7. 

101. 4b. 

102. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

545 

0 

n 

0 

0 

0 

0 

0 

1 

1 

4 

41 . 

104. 41. 

102. 39. 

102. 39. 

104. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

54$ 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

4 It. 

97. 40. 

96. 39. 

96 • 39 . 

97. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

3. 

0. 

0 

234 

14*5 

0 

0 

0 

0 

7 

n 

0 

0 

0 

3 

50. 

111. 45. 

112. 49. 

113. 0. 

0. 

0. 

G. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 

234 

1445 

n 

3 

0 

0 

0 

0 

0 

0 

0 


4'i. 

1U9. 46. 

109. 46. 

111. 47. 

1 12. 

49. ni. 

*8. 

no. 

0. 

0. 

0. 

0. 

0. 

0, 

0 


4.1. 1.7 CHECK SAMPLE OUTPUT 



4.2 Deck Structure Edit 

4.2.1 GONOGO 

4. 2. 1.1 Functional Description 

The program GONOGO performs the following operations: 

1) checks data deck structure and flags structural errors 

2) produces a coherent listing of data for manual editing 

4 . 2 . 1 . 2 Mathematical Description 
- none - 

4. 2. 1.3 GONOGO EXECUTION 

Job Control Language 

//GONOG3 JOB {BT9001 ,746),HEITKE?i?ER,CLASS=F 
//STl EXEC FORTGCLG, TIME. G0=05, REGION. G0=100K 
//FORT.SYSIN DD * 

- Source Deck - 

//GO.FTIOFOOI DD SYS0UT=A,DCB=(RECFM=FB,LRECL=132 ,BLKSIZE=1320) 
//GO.SYSIN DD * 

Unit 5 data deck 

/* 

// 

Data Definition Description 

FT05F001 - Input data cards 

FT06F001 - Printer output 

FTlOFOOl - Printer output 

4. 2. 1.4 DATA DESCRIPTION 


IV-89 


FOR 06-12-18-24 GMT PER EACH DAY 


INPUT DATA CARDS FOR CONOCO PROGRAM 


1. SEQUENCE 


STATION 

ORDER 

VECTOR 


2 CARDS expected STATION ORDER CARD 


START - 
END DAYS 


1 CARD 


TIME INTERVAL CARD 



6 ht INTERVAL 
VECTOR 


1 CARD 6 hr INTERVAL CONTROL CARD 


READC1...C10COEFF. 
FOR RAINFALL 
EQUATION 


1 CARD RAIN COEFFICIENT CARD 


boundaries of 

ANALYSIS AREA ETC. 


1 CARD 


area boundary CARD 



6 HR INTERVAL 
DAY, T1ME,...ETC. 
06 GMT 


1 CARD TIME INTERVAL CONTROL CARD 


SAT CLOUD COVER 
FOR 6HH INTERVAL 
0 06 GMT 




1 CARD PER 
POLYGON 


CLOUD POLYGON CARD 





In column 17 


1 CARD ENDS END CLOUD POLYGON CARD 

6HR INTERVAL 


V 


/ ~ — 

STATION DATA 
FOR 06 GMT 






1 CARD PER STATION 
34 CAROS 


station data CARD 




f'T 


I 


n 3 T(*‘ 

\ i rj 


IV- 90 



STATION ORDER DATA CARD 


FORMAT: (20(1X,I3)/14(1X,I3) ) 

Note: Format requires two data cards 


Variable Format Cols 

IHOLD(l) 13 2-4 

lx. 13) 5-80 

Card 2 

IH0LD{34) 13 1-56 


Description 

Station Number of Station I 
Station Number 


SAMPLE CARD: 


74? '639 '65S '663 ‘654 1658 '653 '35? 'SSI '650 '363 775 '??? ‘768 767 '764 '75? 753 755 


0 0 0 0 0 0 G 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

( J :■ 4 i E ! S S U inj IJ 14 IS IE U II U !D !l 21 !3 !4 !5 !8 21 1) 19 111 II 32 33 34 35 38 31 31 39 49 41 41 43 44 45 48 41 4! 49 50 SI 51 53 54 55 58 51 59 59 El 81 82 63 84 85 88 M 88 89 13 II 12 13 14 15 IS II 18 19 88 

1 1 n 1 1 11 i 11 M I1 11 1 11 n 1 1! 1 1 11 1 1 1 n ) 1 1 1 1 1 1 1 n 1 1 n 1 1 1 1 1 1 1 1 1 1 n 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 n i 
22222222222222222222222222222222222222222 222222222222222222222222222222222222 
33333333333333333333333333333333333333333333333333333333333333333333333 33333333 

44 4444444444444444 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4444444444444444 
555555 555 555555 555 555 55 555 555 55 55555 555555555555555555 555 555 5555 

( i i G 6 G 6 G G 6 G 6 G G G 6 6 6 0 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 0 6 0 6 6 6 0 6 6 6 6 6 G 6 0 6 G 6 6 6 6 6 6 6 6 GO 

1 1 innmnmnimnimn mnmnm n i m i i in i i ni nn 

118 8 8 8 8 8 6 0 6 8 8 8 8 6 8 6 8 8 8 6 6 8 8 8 8 8 8 8 8 8 8 8 8 6 8 8 8 8 8 8 8 8 8 6 8 8 8 8 8 6 8 8 8 6 6 8 8 8 8 8 6 3 6 0 8 8 8 6 8 8 6 6 8 6 8 8 . 

9 3 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 3 9 9 9 9 3 9 9 9 9 9 9 9 3 3 9 9 9 9 9 9 9 9 3 9 3 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 0 9 9 8 9 9 9 9 9 9 9 9 9^9 

! ? ; 1 $ » M m n mi U IHS ir It it 21 n }} n 2 ( n n 21 n 29 to 21 32 33 34 ts 36 tt U tt io H 42 4 ) 44 4 S 46 41 40 49 so si S? S 3 S 4 SS so S? SB St CO 6 i 61 » 64 63 66 6 ? 66 69 10 H 12 23 14 Vj 16 11 19 t 

PRTOR 5081 


IV-91 


TIME INTERVAL DATA CARD 


FORMAT: (213) 


Variable 

Format 

Cols 

Description 

I START 

13 

1-3 

Processing Start Day 

lEND 

13 

4-6 

Processing End Day 


SAMPLE CARD: 


236343 I • I < * ■ • 

OOflOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOflOOflOOOOOOOOtlOOOllOOOOOOOOOOOODflflOOOOOflCQO 

' ^ ^ ‘ ® ' * * '* " '* '< I* IE I’ I' I! f El 11 11 11 IE 1* 11 IS 11 II 11 11 11 15 K 1/ IS IS 10 II 41 41 44 45 45 41 41 <’ SO SI K H 54 55 SO 5) 50 il tO (I 6! tl 04 05 00 II 00 01 SO II IS S3 14 15 10 II II SO 10 

1 I f 1 1 1 1 n 11 1 1 1 n 1 1 1 1 1 1 n 1 1 1 1 11 1 1 11 1 1 11 1 1 1 1 1 1 1 1 1 ] 1 1 n 1 1 1 1 ] 1 M 1 1 1 M 1 1 
22 2 22222222222222222222222222222222222222222222222222222222222222222222222222 
3 333333333333333333333333333333333333333333333333333333333333333333333333333333 
4444 ^“>^44444444444444444444444444444444444444444444444444444444444444444 4444444 
5 5 5 5 5 i: 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 0 5 5 5 J 5 5 5 5 5 5 5 5 5 
66 66B666GGO66G66B666CGG66CB66B6666666G6666GCe66666GB6B6CC0GE666B666CBBB6G666066 

7 7 7 7 n ? 7 7 7 7 7 7 7 3 J 7 7 7 7 7 7 7 7 7 3 I 7 1 7 7 7 7 7 7 7 7 7 7 7 7 7 n 7 7 7 7 7 I 7 7 7 7 7 7 7 7 7 7 7 ? 7 n 7 7 7 7 ] 7 7 ? 7 7 n 7 n 

8 8 8 8 3 6 8 8 8 8 8 fi 8 B 8 8 8 8 8 8 B 6 8 8 8 B 8 fi B 8 8 8 8 6 8 B G B B 8 e 8 6 G 8 8 6 B 8 B 8 8 8 8 D 11 B IJ 0 C C B B 8 B 8 8 8 a B 8 8 3 8 8 8 B B B 8 

9 9 8 3 8 3 9 3 9 S 3 9 0 9 9 9 9 0 3 9 3 9 9 9 9 9 9 9 9 9 3 9 9 9 9 9 9 8 8 8 9 9 3 9 9 9 -3 9 9 9 3 3 9 a 8 9 9 9 B 9 ij fl 9 3 9 9 9 9 9 9 9 9 9 9 9 9 9 B 0 0 

' ‘ ' pLiio" " " " ” ” ” ” ” *’ '' ^1 ^1 51 55 50 51 54 55 to 51 0? 05 01 05 00 01 00 W SO >1 IS 13 H S> IS V IS ’i s; 


IV-92 


6-HR INTERVAL CONTROL DATA CARD 


FORMAT: (414) 




Variable 

Format 

Cols 

Description 

ICHECK(l) 

14 

1-4 

GMT hour 06 

ICHECK(2) 

14 

5-8 

GMT hour 12 

ICHECKO) 

14 

9-12 

GMT hour 18 

ICHECK{4) 

14 

13-16 

GMT hour 24 

SAMPLE CARD: 





C'6001'2C01'8 00341}!? f i m i i i • < m i * i • m - ! i - i » < ' i i ■ ■ i i t ' i • i ? i ii i i i i m i ■ i • • » 

B DO 0 0 DO 0 9 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D D 0 0 0 0 0 0 0 0 0 D D D D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

1 j ] ( 5 5 I j ) IB II I! 13 Mli I! 13 It !S 30 31 33 11 H 3i ’5 !! 38 3! 10 31 33 33 33 35 30 31 11 IS 80 41 43 41 44 45 46 41 4! IS 50 51 S3 53 54 55 56 51 56 SS 60 61 63 03 64 65 66 61 6! 6S 13 II 13 13 (4 '6 II '! H 81 

nil 111 1 1 1 1 n I II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 i 1 1 1 1 1 n 1 1 1 1 11 n 1 1 1 1 1 1 1 1 1 1 1 1 1! 1 M 1 1 1 11 n 1 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 7. 2 2 2 2 2 2 2 2 2 2 

33333333333333333333333333333333333333333333333333333333333333333333333333333333 
44444444 4 4444 4444444444344444444 4 444444444444444444444444444444 4 444444‘14M44444 

55555555555555555555555555555555555555555555555555555555555555555550555555555555 
6 5 e (i 6 C 5 G 6 6 B 6 6 6 8 6 S E 6 C e 6 6 0 6 6 G E B 6 D 8 6 t; e E 6 6 6 G 6 e 0 6 6 6 G 6 G G 6 6 G 5 6 6 D e 6 e 6 G 6 6 e 6 e G S G D B 6 6 6 0 B e G 

I I I e a G B G 8 8 3 8 8 6 8 8 6 8 8 8 6 8 8 8 8 8 8 6 8 6 0 8 8 0 8 8 6 8 8 0 8 6 8 8 8 8 3 8 8 8 8 6 8 8 3 8 8 8 8 8 8 8 8 8 8 8 6 8 8 8 8 8 8 8 8 8 6 8 3 

9 9 3 9 9 9 9 9 3 9 2 9 9 9 9 9 9 9 9 9 9 9 9 9 9 3 9 S 9 9 9 9 9 SI 9 9 9 9 9 9 9 9 9 9 0 9 9 9 9 9 9 5 9 9 9 9 a 9 0 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 0 3 

1 5 : I i 9 M S ‘l» lM?n M IS It V U IS IC 31 77 73 7( 7S U V 78 79 3D 31 J7 3J 3* 35 36 31 3S 39 18 II 17 13 14 IS « 1/ II 19 SO SI S2 53 51 SS SG SI S! 59 68 6t G7 63 61 ii $1 68 69 - I? 11 Ji -6 '< '5 ‘‘f £- 

f'PVOR POBl 


IV-93 



RAIN COEFFICIENTS CARD 


Format: (10F8.4) 




Variable 

Format 

Cols 


Description 

C( 1) 

F8„4 

1-8 



C( 2) 

F8.4 

9-16 



C( 3) 

F8.4 

17-24 



C( 4) 

F8.4 

25-32 

Rain coefficients for satellite 

C( 5) 

F8.4 

33-40 

rain equation 


C( 6) 

F8.4 

41-48 



C( 7) 

F8.4 

49-56 



C( 8) 

F8.4 

57-64 



C( 9) 

F8.4 

65-72 



C(10) 

F8.4 

73-80 



Sample Card 





'17E31 ‘ ' ' '41?39 > 

i t M 11:348 ' ‘ ' 

M Mil i i 1 ' M '(1 4 1 


1(1:349 4 4 4 '7219 i ' ‘ ' '0 


inOQDOOOflOflOOOllfiOOOO OOOOOOOOOO flOOOOOfl 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 (10 0 0 0 0 0 0 0 0 0 0 0 0 0 8 OODOOB 

!!!!!! r n fn" “ S . » » « . 3 . 3 - 3 l 3 , 3 , 33 3 . 3 . 33 3 , « 3, 33 33 33 35 35 3, 3. .3 5. 5, 5, 53 53 55 55 5, 5. 55 5. 5. .3 53 .3 55 55 5 , 5. 55 ,5 „ ,3 ,3 ,3 5 5 3 5 5 5 

II ; 111 iiin 11 1 1 1 M n ri 11 1 1 1 1 1 1 1 1 1 1 n 11 n iti 1 1 n i . i n n 1 1 1 1 ii 1 1 ii i liiinni 
22222 222222222222222222222222222222222222222 22222222222222222222222 2222222222 
333333 33333333333333 333333333333333333333333 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

444444444444 444444444 44444444444444444444444444444444444444 44444444444444444 

55555555555555 555555555555555555555555555555555555555 5555555555555555 55555555 

§ g B 6 C G G fi 6 6 ii 0 B 6 6 6 0 B 6 B 6 6 0 6 G 6 6 6 6 G 8 B 6 B B 6 8 B B 6 B 6 6 6 6 B B C 6 6 fi 6 B B 6 0 6 fi 6 6 6 G S 6 G G G C C B 6 6 6 6 G 6 0 6 6 6 

111 ] iiiinimnmmiimuuuimnm^ mnmiiiniimrnu imiimn 


9 S 9 9 S 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 0 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 3 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

I J 3 ) S 6 I I J 111 II im U lb It tl I! 19 II II II 13 24 IS IS II II 13 30 31 31 33 H 35 35 31 IS 35 <0 41 41 43 44 45 4 t 41 40 45 50 5 l 51 53 54 55 05 51 50 53 00 01 0 ! S 3 04 55 Bt 01 01 13 IB )! t. !3 14 Ji 16 - 10 .3 it 


IV-94 



i. 



AREA BOUNDARY 

CARD - 

PROCESSING PERIOD 

Format: 

(815) 



Variable 

Format 

Cols 

Description 

IFIRST 

15 

1-5 


I LAST 

15 

6-10 

Limits of I, J Area 

JFIRST 

15 

11-15 


JLAST 

15 

16-20 


IDIS 

15 

21-25 

0 

JDIS 

15 

26-30 

0 

I EAST 

15 

31-35 

(-1) West, (+1) East Longitude 

NDAYS 

15 

36-40 

Days to Process 


Sample Card 


» i2»>g I >332 i i 3'35 ^ !3i53 ■! i uij i ! i iq ' t 1-^1' ' * * <7? t -i n i • j > t i t t 1 1 » t i i tt : ■ 


j ( 1 I ) I ! . ! 


0 9 0 0 0 Q D D 0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

, 2 j 4 i S 7 t S 11 11 12 IJ H 15 IS I! It U 20 21 22 23 2( 25 2S 21 25 29 31 31 32 33 34 35 36 33 31 35 41 41 42 43 44 45 4S 41 48 49 50 51 52 S3 54 55 56 5 / 5! 59 69 61 62 63 64 55 66 61 63 69 21 II 12 13 21 IS IS li IS IS 61 

n 1 11 ! 1 1 1 1 1 1 1 1 1 11 n 11 11 1 1 1 1 1 11 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 11 11 1 1 1 11 1 n 1 1 11 1 1 1 11 1 1 It n 1 n 1 

2 2 2 2 2 2 . 2 _ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 _ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 M 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 U 4 4 

55555555555555 55555555555555555555555555555555555555555555505555555555555555555 

E E i i E E 6 E 6 S 6 8 E fi 6 6 6 G 6 6 6 G 8 fi E E E G 8 8 6 E 6 E 6 E E 6 fi 6 E 6 6 6 E £ 6 E E 6 6 6 fi E E fi 8 G fi E E G 0 E fi 6 E E C E 0 S E E fi E E E 

1 j m n n m 1 n 1 m 1 1 n n m n n 1 n 11 n 1 1 ii m i ii 1 1 1 ni m 1 1 n n m n m m m i 


9 9 9 Q 3 3 9 9 S g 9 9 3 9 9 9 3 9 9 9 9 9 9 9 9 9 3 9 9 9 9 9 3 9 S 9 9 3 9 9 9 9 8 0 9 9 9 9 9 9 S 9 S 3 9 S 9 9 9 9 9 0 9 3 S 5 9 9 9 5 5 3 9 S 3 8 3 9 S 9 

I 1 j 1 5 1 I I S 11 II 12 13 14 IS 16 II II 1! 21 21 22 22 24 25 21 22 20 21 20 21 32 33 34 35 36 11 11 1! 41 41 42 41 44 45 46 42 41 4S 51 51 52 51 54 55 56 51 SI 5S 60 61 62 61 K IS 66 61 61 65 10 21 12 II 14 )i 15 II 111 <5 16 


IV-95 


TIME INTERVAL CONTROL CARD 


Format: 

(815,2F10.3) 


Variable 

Format 

Cols 

I DAY 


1-5 

15 

ITIME 


6-10 

15 

KI 


11-15 

15 

IDEL2 


16-20 

15 

IRNO 


21-25 

15 ’ 

IVNO 


26-30 

15 

ITEST 


31-35 . 

15 

NSTA 


36-40 

15 

Sample 

Card 



i 1 U 37 » 

1 toe * 

, 1 . t 1 l|M 1 1 

1 1 i(-i 1 n iQ ' ' 


Description 

Julian Day 
GMT Time 

(1) Freq of ground obs in 6Hr interval 

Verification Variable 

Switch for IR SAT Images l=yes 0=no 

Switch for Vis Sat Images l=yes 0=no 

Satellite Image Indicator 

Number of Stations 


(333333333333333333333333333333333333 ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 4 4 4 4 4 H U 4 4 4 4 4 4 4 4 U 4 4 4 

,4444 4 44444444444444444444444444444<<< 

5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 3 a c r t 8 6 6 B B 6 6 B B 6 « B G li ® ® ® ^ ® ^ ® ^ ^ ® ^ ^ ^ * 

- 

,,,, nni.iiTiiMiiim7Fi.niini ' 

IBS 8 8 8 8 B8B83B8B8BB8B 8 8 8 8 B 8 8 8 B8B 8 8 8 8 8 „ q q « 9 9 9 9 9 9 9 9 8 3 9 9 9 3 3 S 9 9 9 9 9 9 9 9 9 S 9 3^ 



PRIOR 50»1 


IV-96 


CLOUD POLYGON CARD 


Format: {13, 14, 1011 (9F3.1, F4.1)) 


Variable 

Format 

Cols 

ID 

13 

1-3 

IT 

14 

4-7 

ICC(l) 

11 

8 

ICC(2) 

11 

9 

ICC(30) 

11 

10 

ICC (4) 

11 

11 

ICC(5) 

11 

12 

ICC(6) 

n 

13 

ICC(7) 

11 


ICC(8) 

11 

15 

ICC(9) 

11 

16 

K 

11 

17 

XLA(l) 

F3.1 

18-20 

XLO(l) 

F4.1 

21-24 

to 

XLA(K) 

F3.1- 

25-80 

XLO(K) 

F4.1 



Description 

Day 

GMT Time of Satellite Image 

8th of Cumulonimbus clouds in polygon - 
Visible images 

8th of Nimbostratus clouds in polygon - 
Visible images , 

8th of Cumulus Congestus clouds in polygon 

Visible images 

8th of Stratus clouds in polygon - 
Visible images 

8th of Stratocumulus clouds in polygon - 
Visible images 

8th of Cumulus clouds in polygon - 
Visible images 

8th of Cirus clouds in polygon - 
Visible images 

8th of Brightest area in IR Image 

8th of Bright area in IR Image 

Number of Polygon Vertices 

Latitude of First Polygon Corner 

Longitude of First Polygon Corner 

Latitude and Longitude of Nth Polygon 
Corner 


Sample Card 

1‘3?0?15 '1-28489 '985488JOO(»4831'04i?49ai!04249Ql-Oail'5Q01-C»955aOi‘08ij'5401'01'5 i i ' » f ' 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 OOOG_ 0 0 0 0 0 0 0 0 0 , 0 0 0 0 0 0 0 0 0 6 ,^0 0 0 0 0 0 0 0 0 0 0 0 

! J 3 4 i S f I S It II 13 13 U 15 IS II IS It It 21 21 13 11 IS IS 21 31 2S 30 31 32 33 3S 35 3S 3) 3S 33 IS SI 42 T3 IS 45 41 4? si 45 50 51 51 53 54 55 55 51 50 55 SO 01 0? S3 01 Si ft 01 SI S3 30 Tl 121314 15 IS 1/ IB 13 00 

1111 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 1 1 1 1 1 1 1 1 M 1 1 1 n 1 1 II 111111 111111 111111 1 11111111 


IV-97 


STATION - DATA CARD 


Format: (13, 

16. 213. 2X, 

12, 13. 

2X, n, 14, 2X 

. n. 212 ) 


Variable 

Format 

Cols 

ISTA(I) 

13 

1-3 

NTIME 

16 

4-9 

IVAR( 1) 

13 

10-12 

IVAR( 2) 

13 

13-15 

IVAR( 3) 

12 

18-19 

IVAR( 4) 

13 

20-22 

IVAR( 5) 

12 

23-24 

IVAR( 6) 

12 

25-26 

IVAR( 7) 

12 

27-28 

IVAR( 8) 

12 

31-32 

IVAR( 9) 

11 

36 

IVAR(IO) 

12 

37-38 

IVAR(ll) 

11 

39 

IVAR(12) 

n 

42 

IVAR(13) 

14 

43-46 

IVAR(14) 

11 

49 

IVAR(15) 

14 

50-53 

IVAR(16) 

11 

56 

IVAR(17) 

12 

57-58 

IVAR(18) 

12 

59-60 


Sample Data Card 

I !08 * '1*9 < '8 * '1'9 ' ' ^71'0 


12, 3X, II, 12, II. 2X, II, 14, 
Description 

Station Number for Ith Station 
Packed Month - Day - Hour 
Total Cloud 
Wind Speed Knots 
Temperature 

Amount of Low or Middle Cloud 
Amount Low Cloud 
Amount Middle Cloud 
Amount High Cloud 
Dew Point 

Previous 6HR Rainfall Switch 
Previous 6HR Rainfall in Hundreths 
Inches Rainfall in Previous 6HR 
Special Phenomena Switch 
Special Phenomena Identification 
Previous 24 hr. Rainfall Switch 
24 Hour Rainfall Amount in Hundreths 
Temperature Data Switch 
Maximum 6Hr Temperature 
Minimum 6Hr Temperature 

Mill) igiioi iT 49S64 ( i i ■ ■ • ■ • > t ' ■ 
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4.2.t.5 FLOWCHART 


GONOGO 


Q 


ENTRY GONOGO I 




r”e_AD STATION NUMBERS, 
START DAY-END DAY 

1 


READ LAST HOUR FOR 
FOUR 6 HR intervals 

1 


READ RAIN COEFFICIENTS 
CARO 





t 

WRITE ERROR 
MESSAGE SET 
ERROR FLAG 


t 


WR It E ERROR 
MESSAGE 
SET ERROR FLAG 
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GONOGO 
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4, 2.1. 6 SOURCE CODE 


INTEGER*? IH0LDO4) ♦ICHECK(4) •ISTA(34) • ICC (9) • I VAR ( 1 P) 

REAL^4 C(10)fXLA(9),XLO(9) 

N=0 

NN=1 

IUNIT=10 

REAO(5*100)(JHOLn(I), 1=1,34) 

100 FORMAT (?0( IX, 13)/] 4 (IX, 13) ) 

READ(5,110) ISTART,IFND 
no FORMAT (?I3) 

READ(5,115) (TCHECK (I) ,1 = 1 ,4) 

11«5 F0RMAT(4I4) 

READ(5*120) (C(I) .1=1,10) 

120 FORMAT(10FR.4) 

WRITE(IUNIT,120) (C ( I ) , 1=1 , 10 ) 

IF(C(1) .LT.O.O.OR.Cd) .GT.3.0) GO TO 91 
14 READ (5* 130) IF TRST , IL AST ♦ JFI RST , JLA5T , I D I S , JO IS , I E AST , NO A YG 
130 FORMAT(fllS) 

WRITE (lUNIT, 130) IFIRST, HAST, JFIRST, JLAST, IDIS, JDIS. lEAST.NDAYS 
IF (IFIRST.NF.206) GO TO 92 
GO TO 1? 

91 WRITE(6,240) 

N=N+1 

240 FORMATdX, »FRROR ON RAIN COEFF I C I ENTS » ) 

GO TO 14 

92 WRITE(6,2S0) 

N=M + 1 

250 FORMAT dX, ’ERROR ON AREA BOUNDARY CARD*) 

12 DO 1 KK=1,4 

IF(N.NE.O) GO TO 400 

READ (5, 140) lOAY, 1TIME,K1 , 1 DEL? , IRNO , I VNO , I TEST , NST A 
140 F,ORMAT{8IG) 

WRITE (-IUNIT, 140) I DA Y , I T IMF , K 1 , 1 DEL? , I RNO , I VNO , I TEST , MST A 

IFdDAY.NE.TSTART) GO TO 9.3 

IT2=ITIME*100 

15 IF (IT? .NF, TCHECK(KK)) GO TO 94 
2f IF(ITEST.EQ.O) GO TO ? 

6 READ (5, 150) I D , I T , (ICC ( J ) , J= 1 , ^ ) , K , ( XL A ( LK ) , XLO ( LK > ,LK = 1,K) 

150 FORMAT(I3,I4,10I1 ,9(F3.1,F4.1) ) 

WRITE (I UNIT, 350) T D , I T , ( I CC ( tJ ) , J= 1 , 9 ) , K , ( XL A ( LK ) , XLO ( LK ) ,LK=1,K) 
350 F0RMAT(I3,T4,1X,9I1,1X,I1,1X,9(F4.1,1X,F5.1,1X) ) 

if(id.ne.istart) go to 8 

IF (KK.EQ. 1) GO TO 4 

IFdT.GT.ICHFCK (K*<') , OR, IT.lt. TCHECK (KK-1) ) 60 TO 95 
GO TO 6 

4 IF ( IT. GT. ICHFCK (KK) .0R.IT.lt. 0) GO TO 95 
GO TO 6 

8 IF(ID.NF.O) GO TO 16 
NN = 1 
GO TO ? 

16 IF (ID .FO. 747) GO TO 96 
GO TO 400 


IV-103 



93 WRITE(6*200) IDAYtITIME 

200 FORMAT (1X» ‘ERROR WITH TIME INTERVAL CARD AT* *215) 

N=N+1 
60 TO 15 

94 WRITE ^6*210) 

210 FORMAT (IX, ‘TIME INTERVAL CARD OUT OF ORDER*) 

N=N+1 
GO TO 26 

95 WRITE(6,220)' ID, IT 

220 FORMAT (IX, ‘POLYGON CARD PROBLEM AT*, 13, 14) 

N=N+1 

“ GO TO 6 

96 WRITE(6,330) ID, IT 

330 FORMAT (IX, ‘BLANK CARD MISSING AT*, 13,14) 

N=N^1 

NN=2 

2 DO 9 I=NN,34 

READ (5, 160) ISTA(I) ,NTIME, (IVAR(II) ,11=1,18) 

160 FORMAT (1 3, 16, 213, 14, 13, 312, 14, 1 4, 12, 1 1,1 3, 14, 1 3, 14, 1 3, 21 2) 
WRITE (lUNIT, 160) ISTA(I) ,NTIME, ( IVAR ( 1 1 ) , 1 1 = 1 , 1 8) 
IF(ISTAd) .NE.IHOLD(I) ) GO TO 97 
GO TO 9 

97 WRITE(6,230) ISTA ( I ) ,NTIME 

N=N+1 

230 FORMAT (IX, ‘ERROR ON STATION CARD*, 14, 16) 

9 CONTINUE 

1 CONTINUE 

18 IF(ISTART.EQ.IENO) GO TO 98 
ISTART=ISTART+1 
GO TO 12 

98 WRITE(6,260) 

260 FORMATdX, ‘PROGRAM HAS REACHED END OF DATA*) 

GO TO 300 

400 WPITE(6,280) ID, IT 

280 FORMATdX, ‘PROGRAM WENT FUBAR AT*, 13,14) 

N=M+1 

300 IF (N .NE. 0) STOP 16 
END 


IV-104 
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4.2.1. 5 GONOGO SAMPLE OUTPUT 


t.7369 0.1779 O.OiSO 0.0 0.0 0.7369 0.1779 0.0150 0.2411 0.0 

206 232 335 362 0 0 *1 7 

208 6 1 6 1 0 1 34 

208 45 000000002 4 51.5 98.9 47.7 100*3 49.0 104.7 51.5 104.8 

208 45 000000001 4 51.0 104.9 50.2 105.5 51.5 106. B 52.0 105.3 

208 45 000000013 4 42.5 95.5 41. B 9B.0 42. B 103.9 44.3 1O2.0 

208 45 000000042 4 41.9 97.7 40.2 103.9 41.2 105.9 42.9 103.8 

208 45 000000042 4 44.0 101.9 40.7 106.0 42.5 108.2 44.9 103.2 

208 45 000000060 3 40.1 105.0 40.0 106.0 42.5 108. 0 

208 45 000000013 4 43.9 105,2 42.2 108.1 45.5 110.7 45.4 106. B 


208 

45 000000002 

4 

41. 

0 

104« 

•3 41. 

0 102. 

0 39. 

0 

102. 

0 39.0 104. 

208 

45 000000012 

4 

40. 

0 

97. 

0 40. 

0 

96. 

0 39. 

0 

96. 

0 39.0 97. 

0 

0 000000000 

0 

0. 

0 


0. 

0 








747 

72706 

0 

7 

16 

0 

0 

0 

0 

12 

0 

00 

0 

0 

2 

27 

48160 

659 

72706 

0 

4 

19 

0 

0 

0 

0 

14 

0 

00 

0 

0 

0 

0 

49366 

655 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

00 

0 

0 

0 

0 

0 0 0 

662 

72706 

1 

0 

23 

1 

5 

0 

0 

B 

0 

00 

0 

0 

2 

0 

49667 

654 

72706 

0 

3 

20 

0 

0 

0 

0 

13 

0 

00 

0 

0 

0 

0 

49867 

658 

72706 

0 

3 

23 

0 

0 

0 

0 

14 

0 

00 

0 

0 

0 

0 

49066 

652 

72706 

2 

0 

24 

2 

0 

3 

0 

15 

0 

00 

0 

0 

0 

0 

4 268 

557 

72705 

1 

7 

24 

1 

0 

7 

0 

21 

0 

00 

0 

0 

0 

0 

49263 

651 

72706 

0 

4 

19 

0 

0 

0 

0 

16 

0 

00 

0 

0 

0 

0 

4 367 

650 

72706 

0 

0 

19 

0 

0 

0 

0 

11 

0 

00 

0 

0 

0 

0 

48960 

562 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

00 

0 

0 

0 

0 

0 0 0 

775 

72706 

0 

5 

23 

0 

0 

0 

0 

6 

0 

00 

0 

0 

2 

0 

49557 

777 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

00 

0 

0 

0 

0 

0 0 0 

768 

72706 

0 

10 

21 

0 

0 

0 

0 

8 

0 

00 

0 

0 

0 

0 

49061 

767 

72706 

0 

0 

17 

0 

0 

0 

0 

11 

0 

00 

0 

0 

0 

0 

48658 

764 

72706 

0 

0 

18 

0 

0 

0 

0 

12 

0 

00 

0 

0 

2 

0 

48960 

757 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

00 

0 

0 

0 

0 

0 0 0 

753 

72705 

0 

6 

16 

0 

0 

0 

0 

12 

0 

oo 

0 

0 

0 

0 

48561 

755 

72706 

0 

6 

17 

0 

0 

0 

0 

12 

0 

00 

0 

0 

2 

15 

48461 

677 

72705 

0 

4 

24 

0 

0 

0 

0 

6 

0 

00 

0 

0 

0 

0 

49563 

666 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

09 

0 

0 

0 

0 

0 0 0 

B51 

72706 

0 

9 

17 

0 

0 

0 

0 

10 

0 

00 

0 

0 

0 

0 

48163 

B52 

72706 

0 

B 

16 

0 

0 

0 

0 

12 

0 

00 

0 

0 

0 

0 

48161 

B62 

72706 

2 

4 

18 

2 

0 

3 

0 

14 

0 

00 

0 

0 

0 

0 

48259 

863 

72706 

1 

5 

19 

1 

0 

3 

0 

10 

0 

00 

0 

0 

0 

0 

48454 

670 

72706 

0 

7 

16 

0 

0 

0 

0 

8 

0 

00 

0 

0 

0 

0 

48659 

872 

72706 

0 

5 

21 

0 

0 

0 

0 

9 

0 

00 

0 

0 

0 

0 

48859 

874 

72706 

0 

11 

21 

0 

0 

0 

0 

12 

0 

00 

0 

0 

0 

0 

49154 

564 

72706 

0 

7 

18 

0 

0 

0 

0 

4 

0 

00 

0 

0 

0 

0 

48254 

465 

72706 

0 

9 

21 

0 

0 

0 

0 

4 

0 

00 

0 

0 

0 

0 

49157 

458 

72706 

4 

10 

24 

0 

0 

0 

1 

16 

0 

00 

0 

0 

0 

0 

49465 

456 

72706 

2 

10 

24 

0 

0 

0 

1 

21 

0 

00 

0 

0 

0 

0 

49156 

446 

72706 

0 

3 

21 

0 

0 

0 

0 

21 

0 

00 

0 

0 

0 

0 

49469 

469 

72706 

0 

8 

19 

0 

0 

0 

0 

2 

0 

00 

0 

0 

2 

0 

48758 

208 12 


1 

I 

6 


1 


0 

1 

34 





208 

645 000000006 4 

50. 

.5 

99. 

.6 48, 

■ 5 

101. 

,6 49. 

.1 

103. 

.9 

53.0 103. 

208 

645 000000003 4 

44. 

.0 


99, 

.3 45. 

.2 

101. 

.9 45. 

.8 

100. 

.5 

45.2 99. 


208 645 000000003 4 44.4 101.9 43.4 102.2 43.8 104,4 44,8 103.7 

208 645 000000003 6 42.3 95,2 41,9 97,2 42.5 98.6 42.3 99.8 42.9 100.0 43,7 98.2 

208 645 000000041 3 42.0 103.4 42.4 IO5.0 43.1 103.8 

208 645 000000015 6 44.8 105.1 42.7 106.1 42,0 107.8 43.8 108.9 45.5 107.8 45.7 106.1 

208 645 OQOOOOOOO 4 41.0 104.0 41.0 102.0 39.0 102.0 39.0 104.0 

208 645 000000001 4 40.0 97.0 40.0 96.0 39.0 96.0 39.0 97.0 


0 

747 

0 000000000 
72712 0 6 

0 

13 

0. 

0 

0 

0 

0 

0. 

0 

0 

ll 

0 

00 

0 

0 

0 

0 

48154 

659 

72712 

1 

3 

13 

1 

0 

7 

0 

12 

0 

00 

0 

0 

0 

0 

49356 

655 

72712 

0 

0 

16 

0 

0 

0 

0 

13 

0 

00 

0 

0 

0 

0 

4-161 

662 

72712 

2 

0 

19 

1 

1 

7 

0 

9 

0 

00 

0 

0 

0 

0 

49662 

654 

72712 

1 

0 

17 

1 

2 

8 

0 

12 

0 

00 

0 

0 

0 

0, 

49862 

658 

72712 

0 

3 

20 

0 

0 

0 

0 

14 

0 

00 

0 

0 

0 

0 

49062 
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AGROMETEOROLOGICAL-PREDICTIVE SUBSYSTEM 



IV-106 












5.0 AGROMETEOROLOGICAL-PRED SYSTEM 


The agronomic -pred system (Figure 4.1) includes the following 
segments: 

1. Meteorological model which processes station and satellite 
data as well as historical data to produce plant environment 
data for the daily plant environment. 

2. Agronomic plant growth model which grows the plant in its 
historical, seasonal, and daily environment, and produces 
daily estimate of plant stress. 

3. Predict of wheat yields at i,j, county, crop reporting dis- 
trict, and state levels using historical trend and average 
plant stress. 

Appendix 3 presents instructions for the composite Agrometeorological- 
PRED system operation as previously supplied to NOAA, CCEA Columbia, 
Missouri. Necessary reorganization of data from program to program 
(Figure 5.1) is accomplished via system supplied sorting routines and 
documentation supplied as part of the program execution section of the 
appropriate program. 

5.1 Meteorological Segment 

5.1.1 METRUN 

5. 1.1.1 Functional Description 

The program METRUN performs the following operations: 

1. Interpolates using inverse distance weights station data to 
i , j for temperature, dew point. 

2 . Calculates an estimate of i,j rainfall from satellite data. 

3. Calculates i,j potential evapotranspi ration. 

4. Calculates i,j solar radiation, net radiation. 
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5. Prints daily meteorological values, 6-hour -24-hour - weekly' 
precipitation. 

6. Stores meteorological data in the file for agronomic growth. 
Records in the file generated for the ag section are stored by day, then 
ascending i,j, and contain the following information: 


1. 

i,j 

2. 

daily precipitation 

3. 

daily ETP 

4. 

daily net radiation 

5. 

daily solar radiation 

6. 

maximum daily temperature 

7. 

minimum daily temperature 

8. 

BMT 

9. 

Julian date 

5. 1.1. 2 

Mathematical Description 


The following is a description of how the EARTHSAT "System" meteo- 
rological software calculates the ETP utilizing both ground observations 
and satellite cloud cover. 

The Penman equation as used for the potential evapotranspiration 
calculation (Penman, 1948): 

ETP (mm/time) = ^%T ^ - ea ) (1) 

A + 0.64 

where 

2 

RNET is net radiation in cal/cm par time interval, A is 
slope of saturation vapor pressure versus temperature curve 
(mb °r’') 
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6s is saturation vapor pressure at air temperature (mb) 
is vapor pressure at air temperature (mb) 

/(w) is the wind effect, a function of the horizontal wind 
velocity. 

The wind effect /(w) is given by Penman (1956) as 

i (w) = 0.35 (0.5 + w/100) (2) 

where w is wind movement In miles per 24 hours 

In the EarthSat "System" the ETP calculations are performed for 
six-hour intervals at each I, J in the area. Daily ETP is obtained by 
summing up four six-hour calculations. For six-hour calculations the 
wind function becomes 

/(w) = 0.35 (0.5 + 0.27618 w)/4 (3) 

where w is a surface wind measurement, in knots, made during the six- 
hour interval. 

65, eg and A are calculated from six-hourly temperatures and dew point 
observations by means of psychometric equations presented in the Smithsonian 
Meteorological Tables (1966). 

Temperature, dew point, and wind are interpolated for each I, J 
cell coordinate from the 34 meteorological stations observations by 
means of an inverse- distance weight function. The interpolated value at 
I,J,X^j,is 
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n n 

X 

X. . = E n E 1 

" s ^ 1 ^ 


(4) 


where Xp represents the value of a parameter observed at station n at a 
distance d^ from the cell coordinates I, J. Only the nearest 3 stations 
(of a total of 8) are considered. 


Net radiation (RNET) is the net energy gained by the surface through 
the processes of insolation and terrestrial radiation losses to space. 

RNET is a measure of how much energy is available for heating the 
ground, and most importantly, for evaporation. RNET is calculated in 
cal/cm^ per six-hours, as will be described, and is changed into mm of 
evaporation using the conversion factor of 58.6 cal/cm^ to evaporate one 
mm of water. 

The net radiation at the surface, RNET (cal/cm^), is the difference 
between the net solar radiation, Rgp^, and the net long wave or terrestrial 
radiation, R|_m: 


•^NET '^SN " \n 


(5) 


Net solar radiation, R^j^, is that portion of the total incoming clear- 
sky solar radiation, Rg^, not attenuated by clouds and not reflected by 
the earth's surface: 


Rs„ = (1 - A) (6) 

where A is surface albedo expressed as a decimal from 0 to 1,. 

Fg is a solar radiation cloud factor which is a function of 
cloud type and amount 

.'A : -3 POOR 


IV-110 



R is the total incoming cl ear- sky solar radiation which is 
sc 

the sum of direct clear-sky solar radiation at the earth's 
surface, R|, and the diffuse solar radiation, Rj: ^sc^ 

= Rg+ + Rd^ 

Following is a presentation of the equations used in calculating the 
various components of the net solar radiation. 

Surface albedo is calculated as a function of the stage of growth 
of the wheat crop expressed in terms of Biometeoro logical Time, BMT. 

The equations, used are 

A = 0.10 for bare ground (BMT £ 0) 

A = 0.10 + 0.47BMT for the period between emergence 

and heading (0 < BMT £ 3.0) 

A = 0.24 for the period between heading and 

soft dough (3 < BMT £ 4) 

A = 0.24 - 0.14(BMT-1) for the period between soft 

dough and ripe (< 4 BMT £ 5) 

The formula used to estimate cloud factor for any given cloud conditions 
is 

Fs = s nt . + 1.0 - s nt 

where n^ is fraction of given cloud types, and is overcast cloud 
factor for given cloud types. 

The direct clear-sky solar radiation at the earth's surface is 
R| = / Jq cos z T ^ dt (8) 
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where Jq = solar constant (2 cal/cm2/min) . z = solar zenith angle, 

T = atmospheric transmission coefficient and t = time. 

The solar zenith angle is calculated by the following expression (SMT, 
p. 417); 

cos Z = sin $ sin 6 + cos $ cos 6 cos h (9) 

where $ is latitude, & is the sun's declination, h is the hour angle of 
the sun (angular distance of the sun from the meridian of the observer) 
and is expressed in degrees by 

h = 15t + e - 180 (10) 

where t is Greenwhich Mean Time and 9 is longitude 

The sun's declination is well approximated by 

6 = 23.5 sin (2 tf (D - 80)/365) (11) 

where D is day of year 

The atmospheric transmission coefficient, t, is calculated using 
the relationship developed by McDonald (1960) and corrected for depletion 
due to dust: 

T = 0.95 - 0.077 u°'^ (12) 

where the atmospheric water vapor, u (cm. of precipitable water), is 
estimated from the surface vapor pressure, e^^, by (McDonald, 1960): 

logiQU = -0.579 + 0.247>^ (13) 
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The direct solar radiation for six hours is obtained by substituting h 
in terms of t in equation (9) and integrating equation (8) in steps of 
half hour intervals for the six- hour period. 

The diffuse solar radiation at the earth's surface, R^, is 
estimated by (SMT, p. 240): 

Rt = 0-91 l^c ^ '^s (14) 

d 2 

where is the incoming solar radiation at the top of the atmosphere 
and is calculated by 

R = / Jn cos z dt (15) 

0 o 


where all the symbols are as previously defined, and the integration is 
done for a six- hour period. 

The net long wave radiation, R^i^ (cal/cm^), is that, portion of the 
long wave radiation that is lost to space: 





(16) 


where R, i is the clear sky long wave radiation and is calculated by 

Lw 

Geiger's method (1972): 


= [a Tg (.18 + .25 x 10"°^^®) - 0.007 (T^ - Tg)] (17) 


where T, is air temperature 

a 
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T is ground temperature (T„ = T, in our calculations) 

g g a 

a = 8.132 X 10"^^ cal/cm^/min/deg^ 
e is vapor pressure at air temperature 

Fl is the long wave radiation cloud factor calculated for a combination 
of cloud cover and type by 

= (E 

is fraction of given cloud type, and is a constant which depends 
on the cloud type. Values of are as follows (Geiger, 1972): Ci , 

0.04; Cs, 0.08; Ac, 0.17; As, 0.20; Cu, 0.20; St, 0.24. 

Precipitati on 

Precipitation reports are available every six hours from about two 
dozen stations in the area of interest. These are used in conjunction 
with cloud cover detennined from SMS imagery to derive precipitation 
estimates in those I, J cells which do not have precipitation reports. 
The technique employed in estimating precipitation from cloud cover is 
based upon "calibration" of cloud type as to their rain potential, and 
is a refinement, of a technique used by Follansbee (1973). Follanbee's 
equation for estimating 24 hour average areal precipitation from cloud 
cover is 

P (24 hour) = k-| Cb + ^ 2 ^^ + k 3 Cc 

where Cb, Ns, and Cc represent percentage of cumulonimbus, nimbostratus , 
and cumulus congestus clouds and k-j, k 2 , k^ are coefficients of 24 hour 
rainfall potential for each of the three rainproducing cloud types. 
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Our modified FolUnsbee equation for six-hour precipitation amount 
for an 1*3 cell is: 

P (6-hour) = [k-|Cb + k 2 Ns + k 3 Cc]F (18) 

where k,, k 2 > k 3 are coefficients for 6-hour rainfall potential. 

F is an adjustment factor calculated from precipitation ground reports 
and satellite cloud cover at the location of the ground reports as 
fol lows : 

n n 

F = E Pr/ E (19) 

1 1 

The numerator is simply the summation of the reported 6-hour precipitation 
P , at stations 1 to n. The denominator is the summation of the estimated 
6-hour precipitation. P^. for the i.j cells of the stations 1 to n, and 
is calculated by 

= k^Cb + k2Ns + kgCb 

F is not allowed to exceed 3 or to be below 1/3. In these cases F is 
set equal to 1. These are arbitrary limits meant to exclude conditions 
of insufficient cloud cover information or insufficient rainfall reports 
over the ground stations, which would make the calculation of the factor 

F unreliable. 
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When only infrared images are available (00-06 GMT and 06-12 GW 
intervals) then the equation used is simply 




(20) 


where B is fraction (0 to 1) of brightest (coldest) area, is an 
empirically determined constant, and F is an adjustment factor caluclated 

by: 

n n 

F = t Pr/ S kqBn 
1 1 

F is calculated from the available stations rainfall reports and the 
observed Infrared brightnesses above these stations. Again, F is not 
allowed to exceed 3 or to be below 1/3. In these cases F is set equal 

An initial value of k 4 = l/3(ki + ka + kj) = 0.890 was chosen for 
the first week (1-6 June 1975 calculations). Each following week the 
value of k 4 was scaled up or down by the ratio of precipitation estimated 
to precipitation observed at the 24 stations in the area during the 12 
hour period (00-12 GHT) in which infrared images are used for the 
precipitation estimates. 
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reproducibiuty of the 

ORIGINAL PAGE IS POOR 


5. 1.1. 3 METRUN EXECUTION 



//METRUN JOB (BR9001 .746) .ANDERSON, CLASS=F 

//METSTEP EXEC FORTGCLG.PARM. FORT='MAP, ID' .REGION. 60=140K 

//* 

//* MODULE METRUN 

//* 

//FORT. SYS IN DD 

- Source Deck - 

//LKED.SYSLIB DD 

// DD DSN=EARTHSAT,LOADLIB.DISP=SHR 

//GO. SYS IN DD * 


- input data cards for FT05F001 - 

//FT29F001 DD DUMMY ,DCB=BLKSIZE=20 
//FT30F001 DD DSN=RWA.STAIJ,UNIT=2400 

// DISP=(0LD,KEEP.KEEP),DCB={RECFM=FB,LRECL=76,BLKSIZE=760) 

//FT31F001 DD DUMMY,DCB=BLKSIZE=20 

//FT32F001 DD DSN=MET,UNIT=SYSDA,DISP=(NEW,CATLG) , 

// SPACE=(CYL,(10.4),RLSE), 

// DCB=(RECFM=F,BLKSIZE=20) 

//SYSUDUMP DD SYSOUT=A 
//FT09F001 DD * 

- update data cards for FT09F001 


1) 

2 ) 

3) 

4) 

5) 
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6) FT31F001: 6 hr data with daily summation, used for error 

analysis of MET model, 

7) FT32F001: Data for days processed in present cycle becomes input 
in the following cycle. 



IV-118 


1 


5.1. 1.4 DATA DESCRIPTION 
FT09F001 INPUT DATA 
1. SEQUENCE 

f=^ 

OVERLAY data' 




29 CARDS 


MAP OVERLAY 
DATA CARD 
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METRUN MAP OVERLAY DATA CARD 


FORMAT: (7A8) 




Variable 

Format 

Cols 

Description 

AMAPIJ(1, 1.1.1) 

A8 

Card 1 
1-8 

1st 8 cols of map overlay 
line 1 1st half 

• 

• 

• 

A8 

72-80 


AMAPJJd .2.28,1) 
• \ 

A8 

Card 2 
72-80 

Line one last 8 cols 
1st half of overlay 

• 

• 

AMAPIJ(1.1.1.2) 

• 

A8 

Card 29 
1-8 

1st 8 cols of map overlay 
line 1 last half 

• 

• 

AMAP(7,2,28,2) 

A8 

72-80 

Last 8 cols of map overlay 
last line 


SAMPLE DATA CARDS (2 cards): 

It 1 ! M ' ! I-4MMIM I I I 1 I i M M H It M 1 I f 
M I ) ! t Wl M I ! ! 1 ' 


R5JPRODUCnai.3W OF THE 
OKIGINAL PAGE 13 POOR 


II' 

I T 

1 I 

2 2 

3 3 

4 4 

5 5 
16 
7 7 

I I 

,J 

I I 


22222222222222222222222222222222222222222222222222222222222222222222222222222222 

33333333333333333333333333333333333333333333333333333333333333333333333333333333 

4-4444444 44444444444444444444444444 444444444144444444 444444 4 4 44 4444 44 4 444 4 4 44444 

55555555555555555555555555555555555555555555555555535555555555555555353555555555 
B6B 6 6 6 E66im66IB86B 6 6 6 6 6 8 B 6 6 6 6 6 6 B 6 6 6 DBB6BBB6efiG6BG6B6BB66B6G60G 6 6 6 GGB66B 6 6 6 666 

77777777777 

,milM ’ 68 
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FOR 06>12'18-24 GMT PER EACH DAY 


INPUT DA TA ON FTOSFOOl 


1. SEQUENCE 


IMAOCI^CIOOOIPF. 
PON NAINFALL 
■OUATION 


1 CARD 



•OUNOANinOF 

ANALYMARIAITC. 


1 CARD 


/ 


tHNNVriNVAL 

DAV,TIIMi^.ITC. 

MNMT 




1 CARD 


lAT CLOUD COVEN 
PON CNN HfTINVAL 
lOMT 




1 CARD PE R 
POLYGON 





1 CARD ENDS 
6HR INTERVAL 



1 CARD PER STATION 
34 CARDS 
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RAIN COEFFICIENT CARD 


AREA BOUNDARY CARD 


TIME INTERVAL CONTROL CARD 


CLOUD POLYGON CARO 


END CLOUD POLYGON CARD 


STATION DATA CARO 


RAIN COEFFICIENTS CARD 


Fonnat: (10F8,4) 


Variable 

Format 

Cols 

Cl 

F8.4 

1-8 

C2 

F8.4 

9-16 

C3 

F8.4 

17-24 

C4 

F8.4 

25-32 

C5 

F8.4 

33-40 

C6 

F8.4 

41-48 

C7 

F8.4 

49-56 

C8 

F8.4 

57-64 

C9 

F8.4 

65-72 

CIO 

F8.4 

73-80 

Sample Card 

:17a3t i i < 74159 

j < i 7Q348 * ' * 

I J ! j|jl 1 ! I ‘ 


Description 


Rain coefficients for satellite 
rain equation 


I i ♦U7£3li ‘ ' *41;59 ^ i ' *0348 •= ' ' '7215 ' ; ' ^ ‘ iO 


BiAflRBDaOflIflOIIOOIIOlO S 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
ni 111 II 1 n. 11 1 1 1ll 11 1 1 1 n n 1 1 1 1 n 1 1 1 M n_ii 1 1 1 n 1 _n n 1 n 11 1 n 1 n 1 n m 1 1 1 1 
22222 222222222222222222222222222222222222222222222222222222222222222222222222 
313333 3 3 3 3 3 3 3 3 3 3 3 3 3 3 _3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 33333333333333 333333333333333333 

.4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 . 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 M 4 . 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

53555555555555.555555555555555555555555555555555555555 555555555555555555555555 

I * 0 6 0 6 6 S G 5 6 0 0 B 6 6 6 6 6 6 B 6 B 6 0 6 6 6 6 6 6 6 0 6 B B 6 G G 6 0 6 6 6 6 6 0 B C G 0 B B B 6 0 0 6 6 B 0 6 G 6 6 6 6 G 6 6 B 6 6 6 B 6 8 0 B 6 

7777 777777777777777117777771177777777777777 77777777777777777717777 77777777777 

I I 0 0 1 1 0 I 0 1 1 1 to 0 0 0 1 1 1 0 0 I 1 0 0 1 1 I 0 1 1 0 1 0 0 1 1 0 8 0 0 0 0 G 8 0 8 8 0 e e 0 8 8 0 8 8 6 B 8 Q 8 8 8 8 1 8 0 8 8 1 8 8 8 8 8 8 

I9MIISM31 noo ISOOSISgSOSIOSOOOOOSSOSSOOSISOOOOOOSOOO .3 0 9 3 9 9 3 9 9 9 9 9 9 8 8 9 9 9 3 9 9 0 9 9 

1 I ] « a a I I ! II It 13 tj M la ii ii ii ii ii at « aa !« aa Ji Ji ai a « ai ii aa ai aa ai ai ai aa to ti ta « « ta ta ti ti ta ai ai aa aa at aa aa sa as aa an at a a) at u it ei aa ii n ii n aa at aa aa at ii aa lo 

PRYOR SO*l 
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AREA BOUNDARY CARO - PROCESSING PERIOD 


Format: 

(815,2F10.3) 



Variable 

Format 

Cols 

Description 

IFIRST 

15 

1-5 


lUST 

15 

6-10 

Limits of I, J Area 

JFIRST 

15 

11-15 


JLAST 

15 

16-20 


IDIS 

15 

21-25 

0 

JDIS 

15 

26-30 

0 

I EAST 

15 

31-35 

(-1) West, (+1) East Longitude 

NDAYS 

15 

36-40 

Days to Process 

FMAX 

F10.3 

41-50 

Temperature Coefficients 

FMIN 

FiO.3 

51-60 



Sample Card i 

: ia'36 ' 123S i !335 ^ i36^2 -i ^ MO » ! < ^0 ' M-1- ' ' ■ 


, H 1 1 1 n 11 1 11 1 n n 1 1 11 1 n 1 1 1 1 n n 1 j m I III ] 11 1 11 n 1 1 M 1 1 1 1 M M n M 1 M 1 1 M M n 1 1 
22 2222_2 222222222.222222222222222222222222222222222222222222222222222222222222 
33333333 333 333 33333333333333333333333333333333333333333333333333333333333333 

5 5 5 5 5 5 5 5 5 5 5 5 5 5 _ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 

(116 66666(6668666 8666666666668666666666666666 6666 666606666666666666 6 0666666666 
777777717771777712777177777777717777777 7777777777777777771777777777777777777777 
(1186888888888888888888888688888888888888886888888888686866868888668688888888886 

1 ' ! 1 1 i ’ 1 1 ! I ; ?, 1 1 ; f, ; i, 1 1 ?, j ?. ; i ; i ?. ?. i J ’ ‘ ’ ” » * ’ ’ ’ ’ ’ - ’ ’ ’ ' » » ’ ’ ’ ’ ’ » « ’ ’ » ’ 


PRYOR 5001 
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TIME INTERVAL CONTROL CARD 


Format: (815,2F10.3) 


Variable 

Format 

Cols 

IDAY 

1-5 

15 

ITIME 

6-10 

15 

KI 

11-15 

15 

IDEL2 

16-20 

15 

IRNO 

21-25 

15 

IVNO 

26-30 

15 

ITEST 

31-35 

15 

NSTA 

36-40 

15 


Sample Card 


Description 


Julian Day 
GMT Time 

(1) Freq of ground obs in 6Hr interval 

Verification Variable 
Switch for IR SAT Images l=yes 0=no 
Switch for Vis Sat Images l=yes 0=no 
Satellite Image Indicator 


Number of Stations 




i J t <06 M 1 (1 ! ! ! *6 ’ ' ' 


in 1 I no J M-.oi • '34 ‘ ‘ ' 


l,_„,ninm.nnn.ninnnnn 

J3 

4^4 4 « 4 4 


3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 n 3 3 3 4n...-o^---« 

33333333333333333333333^^^^^^^^^^^^^^ ^ 4 4 M 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 




5 5 5 5 !) 5 b 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
B C 6 6 G 6 C 0 C G G 5 G C 6 G G B 6 G E 6 6 B G 

n 7 n n n 7 n m ^ ^ ^ ^ ^ ^ ^ ’ 


nil 7 7 7 7 1733 7 7 7 7 7 7 7 7 7 177 

1 , 1 8 8 8 8 8 3 8 ieS«MB8BB8BBBB8b».. „ , 0 . . , q ^ G 3 9 9 9 3 9 9 9 9 9 9 9 9 9 9 9 9 9 S 8 8 9 8 




, , 6 1 I ! iniiniHisiniiiiiMf: 

PRYOS 8081 
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CLOUD POLYGON CARD 


Format: (13, 14, 1011 (9F3.1, F4.1)) 


Variable 

Format 

Cols 

Description 

ID 

13 

1-3 

Day 

IT 

14 

4-7 

GMT Time of Satellite Image 

ICC(l) 

11 

8 

8th of Cumulonimbus clouds in polygon - 
Visible images 

ICC(2) 

11 

9 

8th of Nimbostratus clouds in polygon - 
Visible images 

ICC(30) 

11 

10 

8th of Cumulus Congestus clouds in polygon 
Visible images 

ICC(4) 

11 

11 

8th of Stratus clouds in polygon - 
Visible images 

ICC(5) 

11 

12 

8th of Stratocumulus clouds in polygon - 
Visible images 

ICC(6) 

11 

13 

8th of Cumulus clouds in polygon - 
Visible images 

ICC{7) 

11 

14 

8th of Cirus clouds in polygon - 
Visible images 

ICC(8) 

11 

15 

8th of Brightest area in IR Image 

ICC (9) 

11 

16 

8th of Bright area in IR Image 

K 

11 

17 

Number of Polygon Vertices 

XLA(l) 

F3.1 

18-20 

Latitude of First Polygon Corner 

XLO(l) 

to 

F4.1 

21-24 

Longitude of First Polygon Corner 

XLA(K) 

XLO(K) 

Sample Card 

F3.1 

F4.1 

25-30 

Latitude and Longitude of Nth Polygon 
Corner 


‘ ! I M !l*a8488 *969488 1 00 0483 1' 04 0493 1 04349 0 i 08 05 QOl'09532 01 ' 08 Q54Q1' 019 i ■ ' f m 


• 1 1 1 1 II 1 1 II I II 1 1 1 1 1 1 9 1 1 1 1 a I 1 0 8 1 8 0 8 0 0 0 0 0 8 0 8 0 0 0008 0 0 80 0 008000800 

' ’ ’ ' ' « I ' « II 1! 13 13 U 15 II I? II 15 Jl 31 33 71 2* 25 31 31 21 3IJI 31 32 33 31 35 31 32 33 31 41 41 42 43 44 45 41 41 41 43 50 51 52 53 64 55 SO 52 51 53 (O 11 12 11 II IS II II IS 13 IS II 12 13 14 15 II II II IS H 
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STATION - DATA CARD 


Format: (13, 

312, 213, 2X, 

12, 13 

2X. 11, 14, 2X 

. 11. 212) 


Variable 

Format 

Cols 

NST 

13 

1-3 

M 

12 

4-5 

IDY 

12 

6-7 

IHR 

12 

8-9 

N 

13 

10-12 

IW 

13 

13-15 

IT 

12 

18-19 

NH 

13 

20-22 

ITY(l) 

12 

23-24 

ITY(2) 

12 

25-26 

ITY(3) 

12 

27-28 

ID 

12 

31-32 

K7 

n 

36 

JPR 

12 

37-38 

IPR 

11 

39 

K9 

11 

42 

ISG 

14 

43-46 

K2 

11 

49 

IP24 

14 

50-53 

K4 

11 

56 

IMX 

12 

57-58 

IMN 

12 

59-60 


2X, 12, 3X, n, 12. n. 2X, n. I4, 

Description 
Station Number 
Month 
Day 
Hour 

Total Cloud 
Wind Speed Knots 
Temperature 

Amount of Low or Middle Cloud 
Amount Low Cloud 
Amount Middle Cloud 
Amount High Cloud 
Dew Point 

Previous 6HR Rainfall Switch 
Previous 6HR Rainfall in Hundreths 
Inches Rainfall in Previous 6HR 
Special Phenomena Switch 
Special Phenomena Identification 
Previous 24 hr. Rainfall Switch 
24 Hour Rainfall Amount in Hundreths 
Temperature Data Switch 
Maximum 6Hr Temperature 
Minimum 6Hr Temperature 


'?8? i >8 '08 •' 'I'g ' »8 J9-J1U1' • ‘1'9 M i7i,q j j ) 


I I I ( ( ( 1200 1'O ^ ' ' ' ' i ( 1 ! M • 
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5. 1.1. 5 FLOWCHART 


METRUN 


ENTRY MAIN 


READ MAP OVERLAY 


READ. 

RAIN COEFFICIENTS 
_ WRITE, 

raIn coefficTents 


READ AREA BOUNDARIES! 
DAYS IN PREVIOUS RUN 


READ I, J STATION 
ASSIGNMENTS 


CHECK 

^'r Previous da^ 
\ processings/^ 



INITIALIZE MAP COUNTER 
DISPLAY ARRAYS. 
SATELLITE INDICATOR 


READ 6 HR CONTROL 
CARD; DAY, TIME 


/^SATELLITE^\ 
DATA AVAILABLE 
iTESf : 0 























METRUN 


















METRUN 
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METRUN 






METRUN 
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METRUN 
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SUBROUTINE INTERP 


ENTRY INTERP 


(XI) > 
LIST SEARCH 
COMPLETE 


LIST ELEMENT 
IS DATA 


WEIGHT IS 
NON NEGATIVE 


SUM 

WEIGHTS = IWI 
WEIGHT X DATA = 

Ixi»wi 


B DATA POINTS 


Iwi 

EQUAL ZERO 


RETURN VALUE = 
-999 









SUBROUTINE ETPCAL 



REPRODUGI ' / / 0^ TH: 

0RIGlNiy--4 
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SUBROUTINE CLODFI 



IV-140 












SUBROUTINE POLYGO 
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OLD COL DELETED 
NEW COL BECOMES OLD 


ENTER ROW-COL 
IN -POLYGON VECTORS 
ADD ONE TO COUNT 
TURN VERTEX 
INDICATOR OFF 


CHECK 1®^ VERTEX 
POINT = COL 


LAST VERTEX 
POINT 


NEXT VERTEX 


POINT EQUALS' 
VERTEX POINT 


TURN VERTEX 
SWITCH ON 
ISW = 2 


COMPUTE VERTEX 
VERTICAL INDICATOR 
COL .COL , , 

IS1=A N-1,N*A N.N+1 




. . . .'.v T 

















> 
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SUBROUTINE IRCLOD 



SUBROUTINE VICLOD 
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SUBROUTINE LATLON 



SUBROUTINE ALBEDO 
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SUBROUTINE PACKER 


^ ENTRY PACKER^ 




f 

LOAD ARRAY 
WITH VARIABLES 




^ RETURN ^ 


SUBROUTINE ERANAL 
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SUBROUTINE STADAT 











SUBROUTINE STADAT 
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SUBROUTINE STAIJN 
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SUBROUTINE JULIAN 



SUBROUTINE DAYLT 
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SUBROUTINE BMTDAY 














SUBROUTINE BMTDAY 









5. 1.1. 6 SOURCE CODE 


C THIS IS THF MAIN PROGRAM FOR PRFPARING THE INPUT MFTEOROLOGICAL 

C PARAMETERS FOR THE EARTHSAT -LACIE WHEAT FORECAST SYSTEM 

C CODED BY R, SABATINI 

REAL*8 AMAPIJ(7,?,2R,2) 

DIMENSION ICC(9) ,TA(35) *TD(35) ,W(35) ♦P(35) ♦X(3B) ,B(?) ,CV(7) ,CL(9,3 
®) fXLA (11) ,XLO(ll) ,0(6) ♦IPEST(35) 

® * ICLO (3S) « TCTO (3S) , ISIG (35) *TMX ( 35) »TMN (35) *ICTY(35*3) »ITY(3) 
INTEGER*? PLNDAT (?7f 28) 

INTEGER*? IPTOT (27,28) , I SP ( 27 ♦ 28 , 9 ) , 1 1 ( 50 0 ) , J J ( 50 0 ) , I PET ( 27 , 28 

® ) » IRNET (27,28) , ITMAX (27*28) ,ITMIN(27*?8) ♦IPPFC(27,?8) »IBMT(?7,28) 
INTEGER*? IP(6,27,28) ,ISTAS(6,27*28) , I SOL (27,28) 

INTEGER*? IPWK(27,?8) ,IRLO(27,28) 

INTEGER*4 RA 
INTEGER*? ARRAY(IO) 

COMMON/MAP/AMAPIJ 
RA = 0 

C READ OVERLAY MAP 

RFAD(9,898) AMAPIJ 
808 F0RMAT(7A8) 

C THE FOLLOWING MAPS ARE PRINTED DAILY 

^ map no. parameter units 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


BMT IS MULTIPLIED BY 1000 WHEN TAPED 


1 

0-06GMT 

PPEC MM*10 

2 

06-1 2GMT 

PRFC 

3 

12-18GMT 

prec 

4 

18-24GMT 

PREC 

5 

0d~24GMT 

PREC 

6 

00-24GMT 

NET RAD LY/DAY 

7 

00-24GMT 

FTP MM*10 

8 

00-24GMT 

TMAX DEG C*10 

9 

00-24GMT 

TMIN DEG C*10 

10 

00-24GMT 

BMT*100 

11 

00-24GMT 

SOL RAD LY/DAY 

12 TOTAL PRFC FOR PERIOD (MM 
EQUATIONS 


Cl. ..CIO ARF COEFFICIENTS FOR RAINFALL 
READ (5,899) C 1 , C2 , C3 , C4 , C5 , C6 , C7 , C8 , C9 , C 1 0 
WRITE (f.,8990) Cl ,C2,C3,C4,C5,C6,C7,C8,C9,C10 
8990 FORMAT(1H1,10F8.4) 

flOQ FORMAT ( 10F8. 4) 

NDAY=0 

C INITIALIZE WEEKLY OR PERIOD TOTAL PRECIPITATION 

DO 2102 1=1.27 
DO 2102 J=1,?R 
210? IPWK(I,J)=0 

r MDAYS IS NO. OF DAYS DATA ON OLD TAPE 

READ (5,900) TFIR«T,ILAST, JFIRST. JLAST,IDIS,JDIS, IEAST.NDAYS 
1 ,FMAX,FMIN 

900 format (815, 2F1 0.3) 

IF(FMAX.EQ.O.O) FMAX=3. 

IF(FMIN.FQ.O.O) FMIN=0.333 

IXF=1 

JXF = 1 


REPBODUCr" -lY OF THE 
13 POOR 


u'jlf’iAL ,r 
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IXL = ILAST-IFlRST+'( 

JXL=JLAST-JFIRST+1 

WPITE(6»900) IXF»IXL*JXFtJXL» IDIS*JDI9 
C READ STATION ASSIGNMENT FROM TAPE 

DO ?001 

DO ?001 J=1*?A 

?0 01 READ ( 30 *9000 »END = ?0 02) IX*JX»(ISTAS(K»I»J)fIR(K*I*J)*K-l*6)f 
IPLNDATdfJ) ♦IRMT(TfJ) 

200? CONTINUE 
REWIND 30 

IE (NDAYS.EO.O) GO TO 999 
r READ OLD RMT FROM LAST DAY ON OLD TAPE 

CALL OPENAG 
IRA=NDAYS-1 
DO nil L’l.IRA 
CALL AGREAD (ARRAY) 

DO 111? LL=n7G6 
CALL AGREAD (ARRAY) 

111? CONTINUE 
nil CONTINUE 

CALL AGREAD (ARRAY) 

IYEAR=ARRAY ( 1 ) 
jD=ARRAY (?) 

IT=ARRAY (3) 

DO 1113 1=1 .?7 
DO 113 J=1»?R 
CALL AGREAD (ARRAY) 

IBMT (I • J)=ARRAY (9) 

113 CONTINUE 
1113 CONTINUE 

CALL AGREAD (ARRAY) 
lllA CONTINUE 
qqq CONTINUE 

CALL AGOPFN 
1 , CONTINUE 

DO 1011 I=lf?7 

no 1011 j=n?P 

IRLO ( I ♦ J) =0 
IPET ( I »vJ) =0 
ISOL ( I » J) =0 
IRMET ( I » J) =n 
IPTOT(T»J)=n 
1011 CONTINUE 

P (3S)=-99. 

MAP = 0 
ISAT=0 

C READ CONTROL CARD EOR DAY INTERVAL, 

n CONTINUE 

WRITE (6^.2203) 

2203 EOPMAT(»l») 

READ (5.900. END = 99) ID A Y . I T I ME . K I . IDEL? t TRNO * I VNO . ITEST . NSTA 


IV-156 


CALL ERANAL ( IDA Y » I TIME *K I » IDFL? tNST A ) 

WRITE (f)»900) TDAY. TTIME*KI , IDEL2* IRNO » I VMO * I TEST , N55TA 
ISAT=ISAT+ITEST 
IFdTEST .FO. 0) GO TO 3 
IFdTEST .LT. 0) GO TO 99 
DO 101 1=1*27 
DO 101 J=1*2B 
DO 101 N=l*9 
101 ISPd*J*N)=0 

C READ SATELLITF CLOUD COVER 

WRITE (6*9007) 

? READ(5*901) ID* IT* (ICC (N) *N=1 *9) *K* ( XLA (KK) *XLO (KK) *KK=1 *K) 
WRITE (6*911 ) ID* IT* ( ICC (N) *N=1 *9) *K* (XLA (KK ) *XLO(KK) *KK=1,K) 

Qll F0RMAT(lX*I4*I5*10Il*9(F5.1*Fft.l) ) 

IF(K.EQ.O) GO TO 3 
C MAKE WEST LONGITUDES NEGATIVE 

DO 21 I=1*K 

21 XLO(I)=XLO(I)*ELOAT(IEAST) 

901 E0RMAT(I3*I4 , 1 0 I 1 * 9 ( F3 , 1 * F4 . 1 ) ) 

XLA(KK+1)=XLA(1) 

XLO (KK + 1 ) =XLO ( 1 ) 

NK=KK+1 

NPOL=l 

CALL POLYGO (NPOL * XL A * XLO *NK * I T * JJ * NM AX ) 

DO 1023K=1*NMAX 
I = II (K)-205 
J=JJ(K)-334 

IE d.E(3. 1 . AMD. J.GE.27) GO TO 1023 
IFdl (K) .F0.223.ANn.JJ(K) .FQ.371) 1 = 1 

IE (II (K) .EO.?23.AND.JJ(K) .F0.37U J=27 
IE(II(K).E0.21] .AMO.JJ(K) .E(D.364) 1 = 1 
lEdl (K) .E0.2n,.AMD.JJ(K) .F0.364) J = 2P 
C TEST FOP CELL LOCATION IN OR OUT OF APFA OF INTEREST 

IFd.GE.IXE.AND.I.LE.IXL.AND.J.GE.JXF.ANn.J.LE.JXL) GO TO 10 22 
GO TO 1023 
102? DO 102 N=l*9 

ISP (I*J*N)=TCC(M) 

102 CONTINUE 
1023 CONTINUE 
GO TO 2 
3 CONTINUE 

DO no KIK = 1*KI 
C READ STATION OATA 

DO 5 ISTA = l-*34 

call ST ad at (XI *X2*X3*X4* ICL* ICT*ITY* ISG*XS*X6) 

IE (ITIMF.FQ.6) GO TO 503 
IF (X5.E0.-999.) XS=-flRR. 

IE (X6.EQ.-999. ) X6=-RRR. 

503 TA ( ISTA) =X1 
TDdSTA)=X2 
W (TSTA)=X3 
P ( TRTA) =X4 
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o o r> 


ICLO(ISTA)=TCL 
ICin (ISTA) =TCT 
ISIG(ISTA) cilSG 
IF (XS.FO.-flftfi. ) GO TO 303 
TMX (ISTA) 

303 IF ( X6.EQ.-0RB, ) GO TO 403 
TMN(ISTA)=X6 
403 DO 303 I = ):»3 
?03 ICTY(ISTA»I)=ITY(I) 

S CONTINUE 

DO 104 I=l»37 
DO 104 J=1»?B 


1 f16 


107 


IX=I*205 
JX=J+334 
IFd.EQ. 1 
IFd.EQ. 1 
IFd.EQ. 1 
IFd.EQ. 1. 
INTERPOLATE 
INTERPOLATE 


ANn.J-EQ.2fl) IX=2ll 
ANn.J.FQ.27) JX=371 
ANO.J.EQ.27) IX=223 
AND.J.EQ.pfl) JX=364 
FOR TEMPERATURE 
FOR OFW POINT 


INTERPOLATE FOR WIND 
DO 105 N=lf6 
IDI5T = IR (N. I * J) 
lOfl D(N)=IDIST 

DO 107 INnFX=l,3 
DO 106 N=l»6 
K=ISTAS(N,T»J) 

IF ( INDEX. EQ. 1 ) 

IF ( INDEX. FQ. 2) 

IF ( INDEX. EQ. 3) 

IF<IMDEX.EQ.l) 

IFdNDEX.EQ.2) 

IE (INDEX. FQ. 3) 

CONTINUE 

IF^No'"sATELUTE^DATA^A^ {ITEST = 0) assign cloud cover OF NEARER 

STATION TO T»J» OTHERWISE USE AVG SAT CLOUD COVER. 

DO 307 M=l»6 
K=ISTAS (N» I » J) 

DO 207 IK=1.3 
207 ITYdK)=ICTY(KdK> 

CALL CLODFI dCLO (K) dCTO (K) . TTY.CL) 

IE(CLd*D) 307»4n7.407 
307 CONTINUE 

CL (Id) =0.0 


X (M) =TA (K) 

X(M)=TD(K) 

X (M) =W (K) 

CALL INTEPP (X*n,TEMP) 
CALL INTERP (XfDdDEW) 
CALL INTERP (XiD.WINO) 


407 CONTINUE 

C ASSIGN^ AVG SAT CLOUD COVER TO IiJ? USE VISIBLE DATA* IF NOT AVAILABLF 

r IP DATA. 

P CONTINUE 

IFdVNO ,NF. 0) GO TO R 
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r> o n n o o o o o 


I1=ISP(I.J,R) 

B (1 )=FLOAT( T1 ) /FLOAT ( IRNO) 

I2=ISP(I*J,9) 

e(?.)=FLOAT(I?) /FLOAT(IRNO) 

CALL IPCLOO(PfCL) 

GO TO 10 
R DO 108 N=l,7 

IM=I5P (If J*M) i 

108 CV(M)=FLOAT(IN)/FLOAT(IVNO) 

CALL VICLOD(CVfCL) 

10 CONTINUE 

C CALCULATE ALRFDO FROM BMT. RETRIEVE PREVIOUS DAY BMT FROM DISK. 

IB=IBMT(IfJ) 

RMT=FLOAT (IP) /lOOO. 

CALL ALBEDO (PMTf ALP) 

C CALCULATE RMETfETP FOR INTERVAL OF TIME COVERED BY STATION REPORTS IDFI 

IDsIDAY 

CALLETPCAL ( IDEL2 f ID f I X * JX f I T I^F . TEMP , TOEW f W IMD . CL f ALB f ETP f RNT , SOL » 

1 RL0N6) 

IF(SOL.LT.O.O) CALL ABED 

IRMT=RNT+0.S 

IETP=ETP*10.+0.5 

ISL=SOL+O.S ' 

IPL=RLONG + 0.5 i'' 

IRLO(I,J)=IPLO(If J)+IRL 
ISOLdf J)=ISOL(If J)+ISL 
IPFTdf J)=IPFT(If J)+IETP 

IPMFTCIf J)=IRMET(I.J) +IRNT ‘ 

lOA CONTINUE 

IF (I T.E0.3.0R.IT.FQ.9.0R.IT.FQ. 15.OP.IT.FQ.pl) GO TO 110 
CALCULATE 6 HP PRECIPITATION 

IF NO SATELLITE DATA AVAILABLE FOR DAY (ISAT=0)f INTERPOLATE 
PRECIPITATION FROM GROUND REPORTS. ^ 

CALCULATE RAINFALL FOR EACH CFLL BY A SATELLITE ESTIMATE SCALED BY A 
FACTOR DETERMINED BY RATIO OF ACTUAL TO SAT ESTIMATE AT PRECIPITATION 
REPORTING STATIONS. 

TYFAR-75 s 

the NEXT STATEMENT WRITES ON TAPE THE YEAR DAY AND TIME FOR GHOUR 
PRECIPITATION ESTIMATE AND OBSERVATION WHEN AVAILABLE 
WRITE ( lOfROnS) lYFARflDAY. ITIME 

CALL PACKFR(APRAYfIYFARf IDAYf ITIMFfPA.RAfPAfRAfPAfRA) 

CALL ERRWRT (ARRAY) 

IF(ITEST.EQ.O) GO TO R8 

DO 1065 1=1 f ?7 ■ 

DO 1065 J=1 .?8 i 

106S IPRFC d f J)=-9R ^ 

SP=0.0 U 

GP=0.0 4 

DO 1066 N-l.NSTA I 

IF(P(N) .LT..0) GO TO 1066 j 

CALL STANTJ(Nf IX,JX) | 

I=TX-205 I 

J=JX-334 I 
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c o 


GO TO lOSO 


from cloud covfp 


lF(I.GE.IXF.»Nn.l.LF.IXL.»Nn.J.GE.JXr.AN[).J.LE.JXL) 

60 TO 1066 
I0‘=i0 CONTINUE 

SrE’PREGREGGIOM FORMULA FOR ESTIMATING PRECIP .IN MM. 

FTOHTS) . 

CN=ISP(I^J»1) 

CC=ISP ( I » J»?) 

CIJ=ISP ( I * 

B1=ISP ( I t 

B2=1SP n^«;p-6P + Cl<^CN + C2«CC^C3*CU + C4*Bl*CS^R2 

rFii:::o-«i;rp";rcR^Gi*c;r.pr 

rF(IPNo'Jo:A)'sP=SP*CFFCN.C7.CC.CB«CU 

1066 CONTINUE 

IF(SP.EQ.O.O) FACT0R=1- 

IF (SP.GT.0.0) 

IF(FACTOR.GT.FMAX) factop=fmax 

c urE‘REGRrSSlJN'"JoR«"r?irFS FACTOR TO CALCULATE PRECIPITATION AT EAC^ 

00 1077 I = l»??7 
00 1077 J=1*BB 
CN=ISP ( I » J»l> 

CC=ISP ( I « 

CU = ISP ( I »J»3) 

B1 = ISP (I»J»«) 

B2=ISP(I»J*‘’> n)PRFT=:FACT0O<»(Cl<^CN + r?»CC + C3<^CL)*C4*Bl*C5 

IF(TVNO.NF.O.AND.TRNO.NE.O)PRf^<>-'-^^' 

IPREC ( I » J) ^ • 

IX=I +20B 
JX=J +334 

CALL STAlJNdX^JX^N) 

IPOPS= P (N) •“•1 0 « 

inUMMY = TPREC (I »vJ) Tr.r,ne 

IF (IPOBB.6F.0) IPREC ( I » J>-IPO^- 
jp ( jPqrS.6E*0) IP0BS=IDUMMY 

CALL ’P ACKER (A^^^ 
array ( 4 )= 1 PREC(I»J) 

CALL ERRWRT ( ARRAY) 

CONTINUE 

^erLrPP«T(TXF.UXE.IXL.JXL,IOIS,UOIS.IPPEC,IO,,TIMF.MAP. 

60 TO lORO 

interpolate precipitation from ground REPORTS, 
no 1078 I=l»?7 
DO 1078 J=l»?8 
IX--I+HOB 


1077 


Q8 


EEPRODlJCHSilK OF TTK 

o M,-. T-TT 


i 4^ i t Ai lA 
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1079 

10777 

C 


1 07P 

10 8 0 
1 1 0 

900S 

C 


r 

c 

1044 ^ 

1 Of. ft 6 


JX=J+334 
DO 1079 N=l,f 
D(N) =IP (N*I *.J) 

DO 10777N=l,f 
K=ISTAS(N*T,J) 

X(N)=P(K)<»10. 

SURPOUTINF TMTFRP INTFPP0LATF9 PRECIPITATION FROM GROUND REPORTS. 
call INTFRP (X.D^PTNT) 

IPRFC ( I . J) =PINT 

IX=T+20S 

JX=J+334 

CALL STAIJM(TX,JX,M) 

IPORS- P(N)*in, 

CALL PACKER (ARRAY. IXfJXf IP0BS.RA»RA*RA fRAfRAtP A) 
APRAY(4)=IPRFC(I.J) 

CALL ERRWRT(ARRAY) 

IF(IPOeS.GF.O) IPREC(I.J)=IPnPS 
IPTOT(I,J)=IPTOT(T»J) +IPREC(I,J) 

CONTINUE 

MAP=MAP+1 

IT=ITIME 

CALL PRINT (IXF. JXF, IXL. JXL. IDtS. JOISfIPREC. ID.TT.MAP) 

CONTINUE 

CONTINUE 

if(it!me.nf.?4) go to 11 

IT = P4 

map=map+i 

format nx, » IXF-JXF-IXL-JXL-iniS-JDIS' »f If ) 

CALL PRINT (IXF. JXF, IXL. JXL. iniS. JDIS. IPTOT. lOf IT.MAP) 

MAP=MAP+1 

CALL PRINT (IXF. JXF.IXL. JXL. lOTS, JDIR. IRNET. ID. TT.MAP) 

MAP=MAP+1 

CALL PRINT ( IXF.JXF, IXL.JXL. IDIS.JDIS. IPFT .ID. IT. MAP) 

INTERPOLATE TMAX AND TMIN AT FACH I.J, 

DO 1033 1=1. ?7 
DO 1033 J=1.P8 
IX--I + 205 
JX=J+334 

IFd.EO. l.AMO. J.FQ.2F) JX = 3f4 
IFd.FQ. 1 . AND. J.FQ.2R) IX = 211 
IFd.EO. 1 . AND. J.FO.27) JX = 371 
IFd.EO. 1. AMD. J.FQ. 27) IX = 223 
INTERPOLATE FOR TMJN 
INTERPOLATE FOR TMAX. 

00 1044 N=l,6 
0(N)=IR (N.I.J) 

DO 1055 INOFX=1.2 
DO 1066fN=l.f 
K=TSTAS (N. T . J) 

IFdNDEX.EO.l ) X(N)=TMX(K) 

IFdNnEX.EO.?) X(N)=TMN(K) 
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o r> 


1055 

C 

C 


1033 


C 

C 


?000 


C 


?10 0 


IF ( INDFX.EO.l) CALL INTERP ( X » H # TMA X ) 

IF (INDEX. EO.?) CALL INTFRP ( X * D , TM IN ) 

CONTINUE 

calculate nfw bmt and write it on tape 

CALCULATE DAYLENGTH 

CALL LATLON (IX*JX.'XLATIO.XLONG) 

CALL DAYLT(XLATIO,IDAY»DAYLNT) 

TR=TBMT(If J) 

BMT”FLOAT(IR)/1000. ^ ^ ' 

CALL BMT0AY(DAYLMT,RMT.BMTMEW,IDAY*PLMDAT(I»J) .TMAX.TMIN) 

IBMT(I.J) =BMTNEW*1000. 

ITMAX (I » J)=5./9.» (TMAX-32. )<^10. + 0.6 
ITMIN( T , J) =5./9.* (TMIN-32. ) »l0.+0.5 

continue 

THE NEXT statement WRITES ON TAPE THE DAY AND TIME=?A 

FOP WHICH 2A HOUR VALUFS OF MFTEOR PARAMETERS HAVE BEEN CALCULATED 

CALL PACKER (ARRAY. I YEAR* ID. IT , PA . RA * RA . RA . RA . RA ) 

ARRAY ( 10) =900 
CALL ERRWRT (ARRAY) 

CALL METWRT (ARRAY) 

ARRAY(10)=in 

THF 2000 DO LOOP WRITES ON TAPE THE DAILY VALUFS OF THE METEOR 

PARAMETERS FOP EACH I J 

DO 2000 1=1.27 

DO 2000 J=1.2fi 

IX=I+205 

JX=J+334 

CALL PACKER (ARRAY .IX.JX.RA.RA.RA.RA.RA.RA.RA) 

ARRAY (3) =IPTOT ( I .vi) 

ARRAY (4) =TPFT ( I . J) 

ARPAY(5) =IRMFT (I . J) 

ARRAY (5) =ISOL ( I . J) 

ARRAY (7) =ITMflX ( I . J) 

ARRAY (B) =TTMIN ( I . J) 
array (9) =TBMT ( I . J) 

CALL ERRWRT (ARRAY) 

CALL METWRT (ARRAY) 

IPWK ( I . J) =TPWK (I.J)+IPTOT(I.J) 

CONTINUE 

NOAY=NnAY+l 

map=map+i 

CALL PRI N T(TXE.JXE. I XL»JXL. I DIS.JDIS.TTMAX.ID.it. MAP) 

MAP=MAP+1 

CALL PRINT ( TXF . JXE. IXL. JXL . IDTS. JDIS. ITMIM. ID, TT.MAP ) 

MA.P=MAP + 1 , ^ 

SCALE DOWN RMT TO *100 FROM *1000 BEEOPF PRINTING USE IPET ( I . J ) = I RMT 

DO 2100 1=1.27 
DO 2100 J=1.2B 
IP=IPMT(I.J) 

IP=IB/10 

IPET(I.J)=IR 
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CALL PPINT(TXF,JXr,IXL*JXLf IDIS,JDIS*IPET *ID*IT»MAP) 

MAP=MAP+1 

CALL PRINT(IXFfJXF,IXL»JXL*IDIS»JDIS*ISOL »in»IT*MAP) 

9000 format (213, 1AI5) 

9003 F0RMAT(3IF). 

9004 F0RMAT(4IS) 

9006 format (213, 7IB) 

9007. format (1H0,» DAY GMT CLOUDS K L AT I TUDES-LOMGI TUDFS ( W ) OF CLOUD 
IPOLYGON VFPTICFSM 
GO TO 1 
99 COMTINUF 

C SCALE DOWN PERIOD PRECIP RY 10 AND PRINT PERIOD PRECIS 

DO 2101 1=1,27 
DO 2101 J=l,2fl 
IB=IPWK(I,J) 

IP=IB/10 

2101 1PWK(I,J)=TR 
MAP=12 

. CALL PRINT( JXF,JXF,IXL,JXL,IDIS,JDIS,IPWK,IO,NDAY,MAP) 

END 
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SURROUTINF PP IMT ( I XF * JXF , I XL » JXL * I D I S * JD I S * I X ♦ ID ♦ T T « N ) 

RFAL«8 AMAPIJ(7,P,?Bf ?) 

INTEGER*? TCO(?7) ♦IX (?7»?fl) 

COMMON/MAP/AMAPIJ 
IXFF=IXF 
ISHEET= 1 
NDAY=IT 
4 CONTINUE 

WRITE(6,103) 

WRTTE(6,104) 

IF(N.E0.1?) IT=?4 
WRTTE(6,linn) ISHFFT,ID,ITfN 
IF(N.EO.l) WRITE (6, 1 101 ) 

IF(N.E0.2) WRITE (f)» 1 10?) 

IF(M.EQ,3) WRITE(^,1103) 

IF(N.E0.4) write (B» 1 104) 

IF(N.EQ,5) WRITE (B, 1 105) 

IF<N,EQ.6) WRITF(5,1105) 

IF(M.E0.7) WRTTE(6» 1107) 

IF(N,E0.8) write (5, 1 108) 

IF(M.EO,9) WRITF(5,1109) 

IF(M.EO.IO) WRITE (^f 1110) 

IF{N.EQ.ll)WRITF(f.,llll) 

IF(N.E0.1?) WRITE(5,1113) NOAY 
1101 format ( 1H+ » 87X » * 00-05 GMT PRFC MM*10») 

110? format ( 1 H+ ♦ 87X » • 05-1? GMT PRFC MM*10') 

1103 F0PMAT( lH-*-»87Xt ♦ I?-18 GMT PRFC MM*10») 

1104 FORMAT ( 1H+»87X * ♦ 18-?4 GMT PRFC MM*10») 

1105 format ( 1H+*87X» » 00-?4 GMT PRFC MM*10») 

1105 format ( 1H+ ,87X » • 00-?4 GMT NET RAD LY/DAY*) 

1107 format ( 1H+ »R7X » • 00-?4 GMT ETP MM*10*) 

HOP FOPMAT ( 1H+ ♦ R7X » ' 00-?4 GMT TMflX DEG C*10') 

1109 format ( 1H + *87X ♦ * 0Q-?4 GMT TMTN DEG C*10») 

1110 format ( 1H+»87X * • 00-?4 GMT RMT*100') 

nil format (1H+»87X ,• 00-?4 GMT SOLAR RAD LY/DAY') 

111? FORMAT (1H+.R7X, * 00-?4 GMT NET LW RAD LY/FIAY') 

1113 format ( lH+,fl7X» ' TOTAL PRECIP (MM)»*I3*» DAYS') 

1100 FORMATdXHHOR COORD = I VERT COORD = J ' . ?0X . * PAGE * ♦ I ? ♦ • OAY'f 

1 n»» TiMF',i 4 n GMT *•* Map*, 13) 

IXLL=IXFF+?5 

IF(IXLL.GT.TXL) IXLL=IXL 

DO 1 IP=IXFF,IXLL 

IPP=IP+?0F 
1 ICO(IP)=IPP 

WRTTE(5,100) { ICO ( IP) , IP=IXFF, TXLL) 

JF=JXF 

JL=JXL 

DO ? JP=JF,JL 

jpp=jp+334 

C WRITE(5,10?) 

WPITE(5,101) JPP* (IX ( TP, JP) , IP=IXFF, IXLL) 

WRITE (5, 105) ( ( ( AMAPT J ( T ,L , JP,M) , 1 = 1 ,7) ,M=1 ,?) ,L=1 ,?) 

? CONTINUE 


IV-164 


IFUXLL.EQ.IXL) TO 3 

IXFF=IXLL*1 
ISHFET=ISKFFT+1 
GO TO 4 

100 FORMAT (1H0»3X,27I4/3X. ) 

101 FORMATdH »I3f?7T4) 
in? FORMAT (IHO) 

103 FORMAT (' 1 * »F0X ? 'FARTHSAT* ) 

104 F0RMAT(43X* 'DAILY WEATHER DIAGNOSTIC*) 
lOS F0RMAT(14AR/14Afl) 

3 RETURN 


END 
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SUBPOUTINF 
ASSIGNS If 
I = ?06 
J=335 
IF(N .EQ. 
IF(N .FO. 
IF(M .EQ. 
IF(N .EQ. 
IF(N .EO. 
IF(M .EQ, 
IF(N .EO. 
IF(N .FQ. 
IF(N .EQ. 
IF(M ,.EO. 
IF(N .EO. 
IF(M .EQ. 
IF(N .EO. 
IF(N .EQ. 
IF(M .EQ. 
IF(M .EO. 
IF(N .EO. 
IF(N .EQ. 
IF(N .EO. 
IF(N .FQ. 
IF(N .EO. 
IF(M .EQ. 
IF(N .EO. 
IF(N .EO. 
IF(N .EO. 
IF(N ,EQ, 
IF(N .EO. 
IF(N .EO. 
IF(N .EQ. 
IF(M .EO. 
IF(N .EO. 
IF(N .EO. 
IF(N .EO. 
IF(N .EO. 
IF(N .EO. 
IF(N .EO. 
IE(N .EO. 
IF(W .EO. 
IE(M .FO. 
IE{M .EO. 
IF(N .FO. 
IF(N .FO. 
IF(N .FO. 
IF(N .FO. 
IF(M .EO. 
IF(M .EO. 
IF(N .EO. 
IF(N .EQ. 
IF(N .FQ. 


STANIJCM.I.J) 

J TO STATION N WHERE N=1 TO 29, 


1 ) 

I = 23S 

1) 

J = 349 

?.) 

T = 2 ?s 

?) 

J = 3S4 

3) 

T = 232 

3) 

J=35f 

4) 

I = 21f 

4) 

J = 3S4 

S) 

1 = 224 

S) 

J = 3S7 

6) 

1=233 

6) 

J=3SR 

7) 

T = ??3 

7) 

J = 3f 0 

R) 

I=2?f 

R) 

J=363 

9) 

T = ?2f 

9) 

J=3f n 

in) 

T = 2?9 

in) 

J=3fl 

11) 

1 = 217 

11) 

J = 3f3 

1?) 

I = ?n^ 

1?) 

J=340 

13) 

1 = 310 

13) 

J=339 

14) 

T = 214 

14) 

J=342 

IS) 

1 = 219 

IS) 

J = 344 

lf>) 

1 = 222 

If) 

J = 3S0 

17) 

I = ??f 

17) 

J = 347 

IR) 

1 = 229 

Ifl) 

J = 3S1 

19) 

1=232 

19) 

J = 3S1 

?n) 

1 = 209 

?n) 

J = 34f, 

?\ ) 

1=210 

?1) 

J = 3S0 

??) 

1=228 

?3) 

J = 344 

?3) 

T = 230 

23) 

J = 344 

24) 

1 = 221 

?4) 

J = 343 

?S) 

1=220 


REPRODUC^'^Tf 
ORIGINAL PA 


CT OF im 
■E IS POOR 


t 


IF (N 

.FO, 

?^) 

J=339 

IF (M 

.EQ. 

?f.) 

I = ?1S 

IF{N 

.EO. 

?f.) 

J=337 

IF (N 

• EO. 

27) 

1 = 211 

IF (M 

.EQ. 

27) 

J=335 

IF(N 

.EQ. 

2F) 

1 = 207 

IF(N 

.EO. 

2ft) 

J=334 

IF (N. 

E0.29) I 

= 209 


IF(N,EQ.?9) J=360 
IF(N.E0.30) I=?13 
IF(N.EQ.30) J=367 
IF(N.EQ,31) 1-??1 
IF(N.EQ.31) J=369 
IF(N.E0.3;?) I-2?F 
IF(N.EQ.3?) J=37? 
IF(N.E0.33) J-227 
IF(N,E0.33) J=371 
IF(N.E0.34) I=?Ofl 
IF(N.EQ.34) J=363 

rfYurn 

EMH 
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SURROUTIME TNTERP ( XN , XMULT » VALUE ) 
DIMENSION XM (6) »XMULT (6) 

NC = 0 

VALUEsO.O 
DEN=0.0 
DO 1 K = U6 
X=XN (K) 

IF (X.LE.-8RR, ) GO TO 1 
XM=XMULT(K) 

IF (XM.LT.0.0) GO TO ?. 
DFN=DEM+XM/1 000. 
VALUE=VALUF+X«XM/1000. 

MC=NC+1 

IF(NC.EQ.3) go to ? 

1 CONTINUE 

? IF (OEN.EQ.O.O) VALUE=«999. 

IF (OEM. EO. 0.0) GO TO 3 

value=value/dem 

RETURN 
3 RETURN 

END 
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SURROUTINF FTPCAL(IOEL?*JOAY»TA»JA»ITTMF» TEMP ♦ TDE W ♦ W I ND ♦ CLOD AM , ALB 
1 ♦ETP*RNET»RSCR.RL'LW) 

DIMENSION CLOr)AM(R»3) .CLFACS(R»3) ♦ CLF ACL ( Q » 3 ) f F ACTOR ( ) 

DATA CLFAC5/.34* .?3» .1S» .34*,34, ,25» .30f .34* . !?♦ 

1 .41*.17*4<».51*.43*.43*.51* 

2 .R4* .R2* .81 * .84*5*.ai/ 

DATA CLFACL/.PO* .?2*.?4* .20*.?0* .24* .22* .20* .24* 

1 .20*.?4*4<^.17*.1R*.1R*.17. 

2 .n4*.n6*.OR*.04*5<^.oe/ 

AMTSOL=0.0 

FACSOL=0.0 

FACLNG=0.0 

no 40 J=l*3 
DO 20 1=1*9 

IF(CLODAM(I*J) .FO.O.) GO TO 20 
AMTSOL = AMTSOL + CLODAM (I * J) 

FACS0L = FACS0L + CI ODAM { I * J) •'^CLFACS ( I * J) 

FACLNG=FACLNG + CLODAM ( I * J) *SQPT (CLF ACL (I * J) ) 

?n CONTTNUF 

40 CONTINUE 

FACTOR ( 1 ) =FACSOL+l .O-AMTSOL 
FACTOR (?) =FACLN6»»? 

IF(AL8.LT.1.) go TO 50 
IF (TDEW.GT.TFMP) TDEW=TEMP 
GO CALL LATLON ( lA. JA,ALAT* ALON) 

JTIME=ITIME 

CALL ETPIMT ( I nFL?*JDAY, ALAT* ALON* JT IMF* TEMP* TDFW* WIND, FACTOR *ALR* 

1 FTP*RMET*RSCR*PNLW) 

RETURN 

END 
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SUR90UTINE FTPINT ( lOT . IDA Y . AL A T * ALON * I T IMF « TEMP ♦ TDFW . W I ND * F AC* ALR ♦ 
1 FTP*PtgFT*RSOL*PNLW) 
r 

r ** ENTER WITH ALP^^On AS PE»CEMTAr7E 1 TO 100 WHEN TOFW IS 

r ** THE ACTUAL DEW POINT TEMPERATURE 

C ♦* ENTER ALPFDO AS A FRACTION 0 TO 1 WHEN TOEW REPRESENTS 

r *♦ REPRESENTS RELATIVE HUMIDITY 0 TO 100 

r 

r * THIS SURPOUTINF CALCULATES POTENTIAL F VAPOTR ANSP I R AT ION 
r * (ETP) AND MET RADIATION (RNET) FOR GIVEN TIME INTERVAL (HOURS) 

C ♦ ASSUMES THAT THE ATMOSPHERIC CONDITIONS (TEMPERATURE* 

C * HUMIDITY* WIND* CLOUDS) ARE CONSTANT DURING THE INTERVAL* 

C * RUT ACCOUNTS FOR THE VARYING SUN ANGLE. 

C »•» 

C 

DIMENSION FAC(?) 

«»» 

* FUNCTION DEFINING SATURATION VAPOR PRESSURE OVER WATER. 

*«« 


E(T) =in.**(-7.R0?RR* (373./T-1.) ♦5.0?R0B<^ALOG10(373./T) 

1 -1.3fllGE-7*(10.»*(11.34A*(l.-T/373.) )~1.) 

? ♦S.13?RE-3*(10.**(-3.4qi49*(373./T-l.) )-l.) ♦ ALOG 1 0 ( 1 0 1 3. ) ) 

»<»« 

* INPUTS FROM call: 

IDT - TIME INTERVAL OF INTEGRATION (HOURS) 

* lOAY - JULIAN DAY 

* ALAT.ALON - LATITUDE* LONGITUDE (DEGREES. POSITIVE N E ) . 

* ITIME - GREENWICH MEAN TIME AT MIDPOINT OF INTERVAL (HOOPS) 

* TEMP - TEMPERATURE (DEG. D. 

* TDEW - OFW POINT TEMPERATURE (DEG. C). 

* WINO - WIND SPEED (KNOTS). 

* FAC(1) - effective TRANSMISSIVITY OF CLOUD FIELD TO SOLAR 

* RADIATION. 

* EAC(?) - EEErCTIVE OPACITY OF CLOUD FIELD TO LONGWAVE 

« RADTATION. 

» ALB - ALPFDO SEE NOTE AT TOP 
«»» 


PI = 7. 141SQ3 

SIG = rt. 13PE-1 1 

SI AT = STN(ALAT*PI/1 BO. ) 

CLAT = COS (ALAT*PI/1B0. ) 

OAYsIDAY 

OT=TOT 

»»« 

» SOLAR OFCLINATTON ANGLE. 

«»« 

SDFC=?3.S*PT/1B0.*SIN (?.*Pl* ( DAY-BO. ) /36B. ) 
SDEL=SIN(SDEr) 

CDEL=COS (SDFC) 
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r 

r 

c 

c 

c 

c 

c 

r 


c 

c 

c 

r. 


c 

r. 

r 

c 

c 


c 

c 

r 

c 

c 

c 


r 

c 

c 

c 

r 

c 

c 

c 


c 

c 

c 

c 


« DEP/'PTUPF OF LOCAL SUN TI''^F FROM GMT (HOURS) • 

DFLT=AL 0 N/ 1 S. 

* CONVERT OFG. C TO DEG. K. 

TA=TEMP+? 73 . 

TO=TDEW 

IF ( ALR.GT, 1 . ) TO=TDFW+? 73 . 

» VAPOR PRESSURE: SATURATION? ACTUAL? SLOPF OF CURVE. 

FSAT=E(TA) 

IF ( ALR.LE. 1 . ) FATP=ESAT*TD/I 00 . 

IF ( ALR.GT. 1 . ) EAIR=E(TD) 

IF ( ALB.LE. 1 . ) ALR= 100 .<‘^ALB 

DLTA=(FSAT/TA»«-?)«-( 6790 .S-S.n?fi 08 '»TA + 491 G.R-w- 10 .**(“ 0.0 30 A<>TA) 

1 *TA **?+ 1 74209 . *1 0 .*«■ (- 1302 . RR/t A) ) 

^ PPFCTPITARLF WATER (CM) AMD ATMOSPHERIC TRANSMISSION 
«• COEFFICIENT DUE TO DUST AMD WATER. 

U= 10 .<^« (-O.S 79 + n.? 47 *SQRT (FAIR) ) 

TAU = 0 . 9 S- 0 . 077 *U*<^ 0.3 

«. pREPAPF JO integrate SOLAR RADIATION OVER TIME INTERVAL. 

» RjOP - SOLAR PADIATION AT TOP OF ATMOSPHERE ( CAL/CVUm»? ) . 

* RDRCR - DIRECT. CLEAR SKY SOLAR RADIATION AT GROUND (CAL/CM<^«?) 

RT 0 P= 0 . 

RDRCR= 0 . 

A'MULT = 0 .S 

■tt-S-if 

< 1 - INITIAL TIMF FOR INTEGRATION. 

TTMF=FLOAT ( TTIMF) -DT/ 2 . 

INTEGRATF AT HALF-HOIJR INCREMENTS 

NT= 2 *inT+l 

DO 20 J= 1 »NT 




IV-171 




r 

r 


r 

r 

r 

r 

r 


r 

r 

r 

r 

r 

r 


1 ft 

?ft 

r 

r 

f 

r 

c 

c 


• «:oi AR HO»IP amclFI cn«:iMF op THF SHN'S 7FNTTH ANOLFi 

• •• 

HRAOi. = (TIMF*OFLT-l?.)««»T/l?* 
ros 78 *;LAT»< 5 nFL*rLAT«cnFL»ros(HPArii.i 

* COS7 LFS<; TMAM ZFRO: sun MFLOW horizon - NO PAOlATfON. 

*•« 

iFirnsz.LF.ft.) r,n mio 

IFU.OT.n «MULT= 1 , 

IF(J.FO.NT) = 

RTOP=OTOP*AMULT*ftO,»rnS7 

• •• 

* IF COS7 small. ATMOSPHFRir TRANSMISSIVITY FXPRFSSION 

* WILL UNOFPFLOW. 

* •• 

IF(C0«;7.LT.1F-?) go to 10 

RORCRsiRDRCP^AMUl, T*<S0.«TM»** ( I . /COS? ) •C057 

TIMPsTIMF.O.S 

CONTINUF 


»#• 

• roFCR - niFFUSF. CLFAR SKY SOLAP PADUTION AT GROUND (CAI_/CM**?> 

* PSCP - TOTAL CLFAP SKY SOL&R RADIATION AT GOOUND (CAL/CH**?». 

* RNSOL - MFT INCOMING SOLAP RADIATION AT GROUND (CAL/CM**?) . 

• •• 

POFCPs (0,01 •PTOP-ROPCR) /?, 

PSCPsPnPrP.RDFCP 
ONSOL=(1 ,-ALP/lCn. ) *FAr ( 1 ) »PSCP 
r^0L=PSCR*F AC ( 1 ) 


r 

r 

r 

r 

r 


r 

r 

r 

r 


r 


* TG - GROUND IFMOFRATUPf . 

* rLCR - outgoing CLFAR S*^Y LOMGWAVF RAOIATION (CAL/CM**?). 

* RNLW - NFT OUTGOING LONGWAVF RADIATION (CAL/CM**p), 

* RNFT - NFT radiation at ground (CAL/CM**?), 

TG = TA 

oLCP= (STG*TA** 4 * ( 0 . IH.O,?S» 10.‘»*(-1 .Pf'ttFAIP) 1 - 0 , 007 * ( T A-TG ) ) 
I *GO.*OT 

RNLW=RLCR-FAC ( 7 ) « (STG«TA** 4 *fen.*DT-RLCP) 

PNFTsRNSOL-RNLN 


e • » 

* FFFFCT OF WIND. 

»«• 

FWNOrO.GS* (n.S.WTMn) *lSlR,/GPO./?S,/ft,«nT 
FWNOrFWNO* (FSAT-FATR) 

• •• 


EEPEODUCIBILITY OF Til 
PRIGINAIt PAOE IS POOR 
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n o o o o r> 


^ MET IMCPFMFMT OF FTP 

ETP= (OLTA*RMET/SR,6*0.f.A»EWNO) /(DLTA + 0.^4) 
RETURN 


COOED RY JACK MENEELY» OCTOBER 1973. 

END 
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Sl^RROUTINF POLYfiO { W AMF , fliT *ONG *NS IDF ♦ 1 1 * JJ ♦ NMAX ) 

IMTFGER LIST<7) 

INTF0ER<»? IPT (SOO) . JPT (500) f GRID I( 34 ) t GR 1 0 J ( 34) *L IMK ( 500 ) 
INTEGER*? IT (500) ♦JJ(500) 

DIMENSION AT (34) fONG (34) 

FAC-U 

IF (NAME.LT.O) FAC=4. 

DO 10 I = l,'^no 
T,PT(I)=0 
JPT(I)=n 
10 LINK (1)^0 

DO ?0 I=l.MSinF 

P=?49.635*TAN ( (90.-AT(I) )/114,59l6) 

A= (-ONG( I) ♦! 0. ) /57.?9578 
GRTDI (I) = (957.+R<»C0S(A) ) »FAC + 0,B 

?n GPIDJ(I) = (P 57 .+R*SIM(a) ) *FAC* 0,.5 

NBCFLL-l 
DO 50 T = ?,N'SIDE 
J=T-1 

IF(GRIDI (I)-GPIOI (J) ) 15f40,15 
15 ITFMP = r,Pini (T)-GRIDT ( J) 

DIRFCT=FL0AT (TTFMD) 

ITFMP=GRinj(I)-GRTnj ( J) 

POWF=l, 

IF ( ITEMP.LT.O) R0WF=-1. 

SLOPE=FLO AT (I TEMP) /DIRECT 
SLARS = ARS (SLOPE) 

ISTEP=1 

IF (DIRECT. LT*0. ) TSTFP=-1 
DPOW=0. 

ICOL = GRIOI (vj) 

NSTFP=0 

30 IC0L=IC0L+I9TFR 

mstfp=nstep+i 

DPOW = SLABS*FLOAT (NSTEP) <^PnWF + 0.5 
IF (ROWF.LT.O) DROW=DROW-l. 

IPT(NRCFLL) =ICOL 
JPT(NeCFLL)=GRIOJ(J) +IFIX (DROW) 

NPCFLL = NBCFLL+ 1 

IF ( tCOL.ME.GRTDKT ) ) FO TO 30 

GO TO 50 

40 IPT(NPCFLL)=GOIOI (I) 

JPT(NRCELL)=GRIDvl(I) 

NRCELL=NRCFLL+1 
50 CONTINUE 

NPCELL = NRCFI_L-1 
C 

C SORT BOLIMDAPY dOIMTF RY COIJJMN AS PRIME CHARACTERISTIC 

C AND ROW AS SECONDARY. 

r 

IFLINK=1 

LINK(1)=999 

DO 100 T=?,NBCELL 

|tEPRODUCr;T-TY t*p. ’fm 

? r - 
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IPL=IPT (I) 

NFXT=IFLINK 
LAST=IFLINK 
IPTR=IFLIMK 
60 LAST=IPTR 

iptr=nfxt 

ICOL=IPT(IPTR) 

NFXT=LIMK(IPTR) 

TF(TPL-ICOL) 

C 

C. TNSFRT NODF 

C 

IF ( IPTR.FO, TFLTMK) GO TO 67 
LINK (LAST) =I 
LINK { I ) =IPTR 
GO TO 100 

67 LINK ( I) =IFLTNK 

IFLINK=I 
GO TO 100 
C 

0 FQUAL C0LUMMS» TFST FOR ROW CRITFRIA 

C 

70 IR0W1=JPT(T) 

IROW?=JPT ( IPTR) 

IF ( TROWl-IRnw?) 6F»lon,75 

C 

C PREPARF TO SEAPCH MFXT NODF 

7F IF (MFXT. NE. RPR) GO TO GO 

LINK ( I ) =99Q 
LIMK(IPTR)=T 
100 CONTIMUE 

C 

C fill in COLUMN - START WITH MINIMUM PQW 

r 

IPSW=0 

MPXT=LINK ( TFLTNK) 

IC0L=IPT(IFLINK) 

INIJM=1 

IR0W=JPT(IFLINK) 

POO IF(NFXT,E0.R99) GO TO ?S0 
IPTR=NFXT 
IC0L1=IPT ( TPTR) 

MFXT=LTMK ( IPTR) 

IF( ICOL.MF. ICOLl ) GO TO ?40 
C 

C SAMF COLUMN _ FNTFP 1ST POINT 

C 

II (IMUM)=icoL 

JJ ( IMIJM) =TPOW 

imum=inum+i 

c 

C CHECK 1ST POINT FOP VFPTFX 

C 
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DO ?10 I=?,MSTnF 

IFdCOL.NF.PPIDKT) .OO.I«OW.NF.GRinj(I> ) GO TO ?10 
ISW = 2 
K = T-l 
J=I + 1 

IF<UE0.1) K=NSIOF-l 
IFn.EO.MGTDF) J = ? 

ISl=(GRIDI (T)-GPini (K) )»(GPIDI (J) -GRID I (I) ) 

?10 CONTINUE 
IFdSW-?) 

?12 IF<IS1) 2?0.213»?14 
?13 IKV=GRIDI (J)-GRIOT d ) 

IF(TKV) 214f21R«?18 
218 I0SW=1 

GO TO 220 
C 

C CHANGE PPfNT SWITCH 

C 

?14 ipsw=ip«;w + i 

IPSW=IPSW«(TPSW/?)»2 

C 

C CHECK FOP PRINT SWITCH "ON»* 

C 

220 IPdPSW.EO.O) GO TO 24G 
I»l = IROW+l’ 

IR?rJPTdPTP)-J. 

IP (IR2.lt. TR l ) GO TO ?45 
DO 230 I=IP1,IP? 

II (TNUM) =ICOL 
JJ(TMUM)=I 
230 INUM=INUM+1. 

GO TO 245 
C 

C DIFFERENT COLUMNS - FMTFP POINT 

C 

240 II(INUM)=TCOL 
JJ { TNUM) =IPOW 
INUM=INIJM+ 1 
IPSW=0 

24S ICOL=ICOLl 

IPOW=JPT dPTR) 

GO TO 200 
C 

C FINISH 

C 

?K0 NMAX=INUM 

IT(NMAX)=IPT(TPTP) 

JJ(NMAX)=JPTdPTP) 

RETURN 

END 
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SUBROUTINE CLODFI (NCLtNCT 1 1 DC t CLAM) 
DIMENSION IOC (3) *CLAM (9t3) tCDAMT (2) 
REAL CLFR{16*2t3) 

♦/13*0. * 3*1. * 

« 4*0. * 1. * 


2*.5 


,34 * 4*0. 


3*0. * 


* 

« 

* 

« 


11 * 0 . 

11 * 0 . 


t 1, t 2*0. f ♦ 

2*0. » l.f.5 * 2*0. ♦ ,5t,33 
9 “•l,t0.*"'l.»0.*“.5 * 

0.fl.*0.*,5*0,*.5f0,* 


9 2*0. * 1. f 3*0. 9 1.*.5* 

33*0.#l.*0.*l.*0.»l.*0.i.5/ 


inputs: NCL 

NCT 
IDC(3) 

output: CLAM(9t3) 


CLOUD AMOUNT IN LOWEST LEVEL (LEVEL 1 OR 2 ONLY) 
TOTAL CLOUD AMOUNT (EIGHTHS) 

CLOUD TYPE CODE IN EACH OF 3 LEVELS 

FRACTION OF SKY COVER FOR EACH OF 9 CLOUD TYPES 

TN 3 LEVELS 


C 

C 

C 

C 


C 

C 

C 

C 

C 


c 

c 

c 


INITIALIZE CLAM TO ZEROS 
DO 10 1=1.9 
DO 10 J=1.3 
CLAM(I.J)=0. 

10 CONTINUE 


IF 

IF 

IF 


20 


n niiD AMOUNT IS -1* OBSERVATION CANNOT BE USED 

CLOUD AMOUNT IS 9. SKY OBSCURED. STRATUS OVERCAST ASSUMED 

TOTAL CLOUD AMOUNT IS 0. SKY IS CLEAR 


ICT«NCT+2 

ICL=NCL+2 ^ 

GO TO (120*100.20*20.20.20.20.20.20.20. 110) . ICT 
60 TO (120* 30*30 *30 .30 . 30 *30 * 30.30.30 * 1 1 0 )* ICL 


IF CLOUD TYPE IN LEVEL 1 IS -1. OBSERVATION CANNOT BE USED 
30 IFdDCd)) 120.40.40 


A CODE IS DEFINED TO INDICATE WHICH LEVELS CONTAIN CLOUDS AND 
WHETHER A LOWEST LEVEL AMOUNT IS REPORTED, 

40 KODE=l 

IF(NCL.GT.O) KODE=9 
DO 60 1=1.3 
IF(IDCd) ) 60.60.50 
50 KODE=KODE+2**(3-I) 

60 CONTINUE 


KODE IS USED AS AN INDEX FOR ENTERING THE CLFR ARRAY AND DETERMINING 

nhat fractions of the sky cover are to be assigned to each level 

CDAMTd) -FLOAT (NCL) /8, 


CDAMT (2) =FLOAT (NCT) /8. 

CDAMT (I) =AMIN1 (CDAMT (1) .CDAMT (2) ) 


DO 90 1 = 1'/ 3 


o r> o o o o 


COMPUTE FOR ONLY LAYERS WITH REPORTED CLOUDS 
IFdDCd)) 90*90f70 
70 DO 60 Jsl»2 

CLAM dDC (I ) * I) *CLAM (IDC < I ) 1 1 ) ♦CLFR (KOOE# J* I ) *CDAMT ( J) 
80 CONTINUE 
90 CONTINUE 
100 RETURN 

STRATUS OVERCAST 
110 CLAM(6«1)-1. 

RETURN 

FLAG FOR UNUSABLE OBSERVATION 
120 CLAMdfl>=-l« 

RETURN 

END 
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SIJRPOUTIWF TPCLOO(B*CU 
DIVFNSION CL (Q,3) ,P (?) 
DO 1 I - 1 ♦ P 
DO 1 J=l,3 
1 CL(T*J)=0.0 

CL(9*1)=R(1)<^.33?/P, 

CL (?♦?) =B ( 1 ) *.333/fl. 

CL (?»1 )=R{1 )<^.333/R. 

CL(6fl)=R(?)*.33?/R. 

CL(l»l)=R(?)».ff>6/R. 

PFTURN 

FNO 
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SU«ROUTINF VICLOn(CV.CL) 
DIMENSION CV (7) ,01 (Q,i) 

DO 1 1=1,9 
DO 1 J=l,3 
CL(T»J)=0.0 
CL(9,l)=CV(l)/fi. 
CL(?f2)=CV(?)/B. 

CL (?, 1 ) =CV (3) /8. 

CL (f>,l)=CV(4)/«.+CV(S)/8. 
CL n * 1)=CV (B) /A, 
CL(l,3)=CV(7)/e. 

RETURN 

FNO 
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SURROUTTNF I.ATLON ( I , J . CL AT • CLON ) 

Fl=?57.-I 

F?=?F7.-vJ 

F3=I-2F7. 

YsATAN(Fl/F?) 

CLON=l . 

CL0N=-CL0N»R7,?9S77qs 

CLAT=1 ,571-?*ATAM (F3 / (249.63S<^SIN (Y) ) ) 

CL AT=CLAT»F7, 3957795 

RETURN 

END 
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SURROUTTNF ALBEDO ( RMT ■ ALB ) 

C THIS SUPROUTINF DFTEPMIMFS THE EFFECTIVE ALBEDO (PERCENT) 

C * OF THE CROP-SOU. SYSTEM AS A FUNCTION OF BMT 

IF(BMT) 10*10, 

10 ALB=10. 

RETURN 

PO lRMTsBMT+1, 

GO TO (30*30*30*40*S0*SO) ,IRMT 
30 ALB=10.+4.F^(S7»BMT 

RETURN 

40 ALB=24, 

RETURN 

SO ■ ALB = 24.-(l4,*(RMT-4.) ) 

RETURN 

C * CODED BY JACK MENprLY* OCTOBER 1P73 

END 
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SUBROUTINF PACKFR 
TK>TFGFR»2 ARRAY (I 
INTEGER A»B»C,P»F 
ARRAY ( 1) =A 
ARRAY(?)=R 
ARRAY{3)=C 
ARRAY (4) =n 
ARRAY (S) =E 
array (6) =F 
ARRAY (7) =G 
ARRAY (B) =H 
ARRAY (9) =I 
999 CONTINUE 
RETURN • 

E^f^ 


ARRAY fAfB»C*0*E*F »G»H» I ) 
) 

F»G,H, I 
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<300 


100 

101 

10 ? 


SURROUTINF FPAN AL ( I 0 A Y • I T 1 MF * K I , IDFL?*MSTA) 

IF (IDAY,LT,1.0R.TDAY.GT,3ff,) GO TO QOO 

IF ( ITIMF.LT.O.OR. ITIMF.GT.P4) GO TO 900 

IF (KI.NF.l) r.o TO 900 

IF ( IDELP.NF.G) GO TO 900 

IF (NSTA.MF. 34) GO TO 900 

RETURN 

CONTINUE 

WPTTE(6,100) 

WRTTE(6, 10?) 

WRITE(G,ini) TDAY.IT!MF,KI,inF| ?,MSTA 
STOP 

FORMAT (' 1 *♦ ***<»<»»-»<»FATAL PARAMETER ERROR 
FORMAT(1X*SI10) 

FOPMAT(lXt» OAY TIME KJ I DEL? 

END 


) 

NSTA» ) 
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SUBROUTINF STflDAK TT , TO t W ,P , MH ,N , I TY , T SF , TMX * TMN ) 
dimension ITY(3) 

RFAO (5* 1000) MST*M, IDY, ihR^N* TW, IT.MH» ITY» ID»K7* JPR. IPR»K9» ISOf 
« KP, IP24*K4, IMX* IMN 

1000 FORMAT(I3f3I2»?n.?Xf T?»I3#3IP»?X,I?*3X*I1,I?,I1,?X,II,I4,?X, 
11*14. 2X, II, ?IR) 

IF (NST.F0.747) WR T TF ( ft , ?0 0 0 ) 

POOO format (*0 STA MOnYHR TOT WNO TEM LOW CL CM CH DEW SEVEN 
<»LUS NTNF TWO FOUR * / 1 SX , • CLD ♦ * 1 PX , » CL 0 » , I , 

* *PT GROUP INCH GPOUO GROUP GROUP') 

WRITE (ft *3000) NST.M, lOY, IHR,M, IW, IT,NH, ITY* IO.K7, JPR* IPR*K9. ISG, 
» KP* IPP4.K4* TMX, TMN 

3000 format (• 7P», T 3. IX, 3IP, 14, Ift, 15* 14, PX *313*15*14, IP* 15*19*14,19* 
« 14, 19, PI?) 

IF(M) 10*10, PO 
10 TT=-999. 

TP=-999. 

W=-999. 

P=-R9. 

TMX=-999. 

Tmn=-999, 

M = -l 
NH = -1 
ITY ( 1 ) =-l 
ITY (2) =-l 
ITY (3)=-l 
ISG = -1 
RFTUPN 

PO DO 70 1 = 1, ? 

IF(T.EO.l) JJ=IT 
IF(I.EQ.P) vJJ = ID 
IF(JJ) 30*40,40 
^0 XX=-999. 

GO TO ftO 

40 IF(JJ.GT.SO) JJ=50-JJ 
XX = JJ 

ftO IFd.EQ.l) TT = XX 
70 CONTINUE 
Ti> = XX 

IF(IW) 00,90,90 
PO W=-099, 

GO TO 100 
90 W=T'*( 

100 IF (K7,E0,7) GO TO 110 
P = 0. 

GO TO 140 

110 IF(JPR) 115,120,120 
1 ] s P=-99. 

IPO P = FLOAT ( JPP*100<^TRR) /lOO. 

IF(K?,mf*P) go Tn 130 
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p?4=FLoaT (IP?4) /ino. 

IF (P24.lt. 0. ) P?4=P9.9P 
IF(P,GT.P?4) P=-99. 

IF (P24.GT.F0. ) P?4=-999. 
no IF (P.NF.-99.) prp<^?=^,4 
140 IF(K9.NE.9) ISG=-1 

IF ( IHR.NF.'S) GO TO ISO 
TMV=-999. 

TMN--999. 

RFTURN 

ISO IF ( IHR.i^E. 1 P) GO TO J70 
TMX=-0flR. 

TMNs:-0Rfl. 

IF(K4.MF.4) RFTURM 
ISO IFdMN.GF.O) TMNsTMM 
RETURN 

170 TMXsr-fiflfl, 

TMN=-R8P. 

IF(K4.MF.4) RFTURM 

IF(IMX.LT.O) GO TO IRO 

IF ( IMX.LT.RO) IMV=100+IMX 

TMX=IMX 

GO TO IfiO 

FMO 
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SUP’POUTINF STATJN(I^J«N) 

ASSIGNS STATION NIIIMRFR N TO A SFT OF T»J. 
N = SS 

IF(I #FO. ?35 .ANP. J .FO. 340) N=1 

IF(T ,E0» .AMO. J ,F0. 3S4) M=? 

IF(I .FO, ?3? .AMD. J .EQ. 3G<i) M = 3 

IF(I .EO. ?16 .ANO. J .EO. 3S4) N=4 

IF (I .FO. ??4 .ANO, J .EO. 357) N=5 

IF(T .EO. ?33 .ANO, J .EO, 355) N=6 

IF(I .FO. ??3 .ANO, J ,EQ. 350) N=7 

IF{I .FO, .ANO, J ,F0. 357) N=P 

IF(I ,E0. .ANO, J ,E0. 350) N=0 

IF(I .EO, .ANO, J .FO. 351) N=10 

IF(I .EO, ?17 .AMO. J .EO. 353) N=ll 

IF(I .EO. 305 .AMO. J .EO, 340) N=l? 

IF(I ,FO, ?10 .AMO, J ,FO, 330) N=13 

IF(I ,F0. ?]4 .AMO. J ,EQ. 34?) N=]4 

IF^d ,E0. ?19 ,AMO. J ,E0. 344) N=15 

IF(T ,F0. ??? .ANO, J .FO. 350) N=15 

IF(I .FO, ??5 .AMO, J ,F0, 347) N=17 

IF(T .EO, ??9 .AMP, J .EQ. 351) N=1P 

IF(T .EO. ?3? .AMO. J ,FQ. 351) M=19 

IF(I .EQ. ?09 .AMP, J ,FQ. 345) N=?0 

IF(I .EQ. ?10 .AMO. J .FO. 350) N=?l 

IF (I ,FO. ??P .AMP. J .EO. 34A) M=?? 

IF(T ,EQ. ?30 ,AMO. J .FO, 34A) N=?3 

IF(I ,FO. ??1 .AMP, J .EO. 343) M=?4 

IF(I ,FO. ?70 .AMP, J ,EO. 339) M=?5 

IF(T ,F0. ?1=^ .AMP. J .EQ. 337) N = ?5 

IP(T .FO, ?11 .AMO, J .FO, 335) N=?7 

IF(T .FO. 307 .AMP. J .EQ. 334) N=?R 

IFd.FQ. ?09, AMO.J.FO.350) N = ?9 
IFd.EO.?13.ANO,J.EO.357)M = 30 
IF d .F0.331 . AMD. J.FO. 3 59) M = 31 
IF (I .E0.2?5. AMO. J.EQ.37?) M=3? 

IFd.EQ.3?7,AN0.J.FQ.37l) M=33 

IFd.EO,30R.AMn,J.E0.353) M = 3A 
RETURN 
END 
FMO 
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c e c o 


SURROUTINP JULIAN (I DA Y , I MO » I YR , JDA Y ) 

« SURROUTIMF JULIAN CHAMOFR OATF OIVFN IN PAY MONTH YFA» IN 

« JULIAN OAY 

OIMFNSION NOAYSn?) 

data NDAYS/OOl 120U51 .IBl ♦21?.?43*?73*30A»334/ 

IF ( TMO.lt. 1 .OP. IMO.OT. 12) IM0=1 
JDAY=NDAYS ( TMO) ♦TOAY 
IF ( IYR-IYR/4»4.NF.O) RO TO 10 
IFdMO.LE.?) RO TO 10 
JOAYsJOAY+1 
10 RETURN 
END 
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SURROUTINF DAYLT ( >^LAT. inAY,DH(?) 
C CALCULATF FPHFMFRTS OF SUM 

R=0.017453?Q2S 
DAY^IOAY 

FPH = ?3,S»c:TM ( .9863* (nAY-flO, ) *R) 
C CALCULATF HOUR AMOLF 

COH=-TAN(XLAT*R) *TAM (FPH*R) 
DH9=ARCOS (COM) *7,6408787 
RFTURM 
ENO 
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noooo oar>r»nor>r^ 


SUBROUTINE RMTDAY (DAYLNT*8MTPPEf BMTNEW* JULDAT*PLNDA?*TMAXF , TMIN 
*) 

INTEGER*? PLN0A2 
INTEGER PLNDAT 

INITIALIZE 

CLEAR THE VI PART OF THE EQUATION. 

SET THE RESULTING RMTNEW TO -1 IF THE DATE IS BEFORE 
THE PLANTING DATE AND EXIT. 

SET THE RESULTING BMTNEW TO 0 IFTHE DATE IS THE 
PLANTING DATE AND EXIT. 

BMTNEWk- 1.0 
PLNOAT=PLNDA2 
Vl-0.0 

IF(JULDAT-PLNDAT) 10*20*30 
10 CONTINUE 
BHTNEW=-1.0 
GOTO 900 
20 CONTINUE 
ICRPDT=1 
25 BMTMEW=0.0 
GOTO 900 
30 CONTINUE 

SELECT THE PROPER COEFFICIENTS BASED ON THE PREVIOUS BMT. 

SET VI TO 1 FOR THE »A» COEFFICIENTS ON THE FIRST SET. 

IF BMT IS > OP = TO 5.0 THEN SET IT TO 5 AND EXIT. 

IF (BMTPRE.LT.0.0) RETURN 
IF(BMiTPRE.LT.l.O) GOTO 40 
IF (BMTPRE.LT.2.0) GOTO 50 
IF (8 MTPRE.lt. 3.0) GOTO 60 
IF (RMtPRE.LT.A.O) GOTO 70 
IF (8 MTPRE.lt. 5.0) GOTO 80 
C IF PREVIOUS BMT IS NEGATIVE DO NOT PROCESS AND EXIT. 

BMTNEW-5.0 
GOTO 900 
40 CONTINUE 
80=44.37 
81=0.01086 
B?.=-0. 000223 
83=0.009732 
B4=-0. 000*2267 
Vl=1.0 
GOTO 90 
50 CONTINUE 
A0=fl.413 
Al=1.005 
A2=0.0 
80=23.64, 
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Bl=-0.003?1 ? 

8?=o.oonoso?6 

B3=0.000 36ff> 

B4=-0.000004?8? 

GOTO 90 
fO CONTINUF 
A0=10.93 
A1=0,92B6 
A?=-0.0f OPS 
R0=42.f)S 
Bl=0,0O0P9SB 
BP=0.0 

P3=0. 0003943 
84 = 0.0 
GOTO 90 
70 CONTINUE 
A0=10.93 
A1=1.3B9 
A?=-0. 08191 
B0=42.18 
B1=0.00024SR 
R2=0.0 

B3=0.OOnO31OQ 
B4 = 0.0 
GOTO 90 
8 0 COMTINLIF 
A0=P4.3B 
Al=-1 . 14 
A?=0.0 
80=37.67 
'81=0.00006733 
B?=0.0 

83=0.000344? 

B4=0.0 
90 CONTINUE 

IE (TMAXF.LT.BO) TMAXF=R0 
IF (TMINF.LT.ro ) TMINF=P0 
0=0AYLNT-A0 
TMX=TMAXF“80 

tmn=tmtnf-ro 

IF{V1.E0.1.0) GOTO 100 
vi=n»(Ai + A?^^n) 
if (VI. LT. 0.0) V1=0.0 
ion CONTINUE 

V?=TMX-«- (R1+R2*TMX) 

IF (V2.LT.0.0) V2=O.0 
V3 = TMN'» (R3 + R4^>TMN) 
IF(V3.LT.n.O) V3=0,0 
RDAY = V1<^ (VP + V3) 
BMTNEW=RDAY+8MTP9F 
QOO CONTINUE 

IF(RMTNFW.GF.S.O) 8MTNFW=-1.0 

RETURN 

END 
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1.3726 0.3706 0.0313 0.0 0.0 1.3725 0.27C6 

1 27 1 28 0 0 
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5.1. 1.7 METRUN SAMPLE OUTPUT 
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236 6 1 6 1 0 1 3A 


04Y. GHT CLOUDS K LAtl TUDES-LONGITUOES (WJ OF CLOUD 
236 450000000713 49.0 113.0 49.9 llO.l 47.3 111.5 

235 450000000014 49.3 110.2 49.9 109.3 45.9 110.4 

236 450000000716 49.9 109.4 50.6 106.0 43.0 lOo.O 

236 450000000719 50.6 106.1 50.6 105.0 49-9 105.0 

236 45uOOC000439 50.0 103.1 52.5 99.3 54-4 9S.0 

236 4500QC000716 46.1 106.0 46.1 103.0 43.2 105.3 

236 450000000156 43. 1‘ 106.2 43.1 105.3 45.2 103.4 

236 450U0ue00034 44.0 107,7 44.9 106.9 44.2 10 q.4 

236 450000000224 46.1 102.2 43.9 99-0 43.3 93.8 

236 450000000224 42.0 104.4 43.1 100.9 42.3 100.3 

236 45CCOOOOC3J4 tl.O 104.0 41-0 102.0 39.0 102.0 

235 450000000004 40.0 97.0 40.0 96.0 39.0 96.0 

0 COOOOOOOCOU 0.0 0,0 


POLYGON VERTICES 
47-2 111,5 

45.1 107.0 43.8 108.8 45.9 110.3 

49.9 103.9 50.4 103.5 50.5 103.0 46.0 103.0 46-0 

52.0 97.8 50.0 100.0 49.1 99.6 50.7 97.0 50.1 

43.2 106.1 44.1 105.9 45.1 107.0 

44.1 102. o 41-8 107.0 42.4 107.7 

43.2 107.2 

45.3 101.2 

41-2 104.2 
39-0 104.0 
39.0 97.0 


106.3 48.0 106.0 
96.1 46. 0 103.1 
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* ♦ 

355 120 120 128 129 131 133 136 141 147 153 166 179 107 192 198 220 219 219 219 221 219 219 214 211 209 193 198 

^ * 

356 120 120 120 128 130 132 135 139^143 154 171 174 190 196 201 220 219 217 216 219 221 223 224 215 200 199 196 

* 

357 120 120 120 129 130 132 135 l46 149 15K-175 177 181 199 204 220 219 217 213 218 223 225 217 217 210 203 208 

358 120 120 127 126 127 130 133 144 147 149 177 179 183*202 207 225 224 223 222 224 227 227*227 220 212 212 213 

359 121 127 125 123 123 127 130 142 146 148 178 100 184 202 207 226 226 226 226 229 233 231 232 222 214 214 214 

360 131 129 126 121 122 126 130 133 146 143 150 179 182 195 205 212 227 227 228 235 236*234 231*229 226 215 215 

***** MANHATTAN • »**** * 

361*144*130 128 126 127 131 131 135 153 155 157 160 179 195 202 213 231 231 233*234*233 232 228 225 223 226*215 

562*251*131 130 131 132 135 139 153 155 157 159 173 178 194 202 209 232 232 233 234 233 231 228 226 228 225 225 
*»*** AK.P.CN 
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EASTHS4T 

DAILY WSATHfcR OIAGNCSTiC 

HOR COORD = I VERT COORD = J PAGE I D4Y236 TIME 24 GMT MAP 10 00-24 GMT BMT*100 

Z06 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 

33p- 100»485 499-lOO-lOJ-lOO-lOO-lOO 494 471 471 477 4^1*100-100-100-100-100*100-100-100-100-100-1 OO-lOO-lOO-lOO 

336- 100-100-100-100-100-100-100 497 484 474 479 470 491-100-1 00-1 OO-lOO-lOO-lOO-lOO-lOO-l 00-100-100-1 00-100-100 

337- 100-100-100-1004100^100-100 497 472 455 460 478 496 ~>iC 490 491 496-lOO-lOC-lOO-lOO-lOO-lOO-lOO-lOO-lOO-lOO 

338- 100-100-100-100-100-100*^100 499 495 465 470 483 497 483 489 491 492-1 CO-lOC-lOO- 100-100-100-100-100-100-100 

339- 100-100-100-100-100-100-100-100*100 486 436 497 476 432 489-100-100-1 OO-lOC-lOO-lOO-100-100-1 00-100-1 00-100 

340- 100-100-100-100-100-100-100-100-100-100 499 496-100-100-100-100-100-1 00-100-100-100-1 00-1 00-1 00-1 00-100-100 

341- 100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-1 00-100-100-10 0-1 00-100-100-100 
loo- lOC-100- 100*1 CO-lOO-1 00-1 00*1 00-100*1 00-100-1 00* 100^ X00-i00*100-l00*100- 100- 100-1 OO-lOO-iOO-lOO-lOO-lOO 

343- 100-1 00-1 00-100-103-1 00-1 00-1 00*1 00-1 00-10 O-lOC-10^ ^100-100-100<^100- 100- 100-100- 100-100-100-1 00*1 00-100-100 

344- 100-100-100- 100- 100-100-1 00-1 OO-lOO-LOO-lOO- 100-100-100-100-100-100-100*100-100-100-100-100-100-100-100-100 

<- 

345- 100-100- 100- 100- 100-1 00-1 00-1 00-1 00-100-100-100-100-100-100-100-100-100-100-100-100*100-100-100-100-100-100 

346- 100-100-100-100-100-100-100-100-100-100-100-100*100-100-100-100-100-100-100-lOO-100-100-100-100‘^l 00-100-100 

* * ¥*»*»*»» 
34 7- 100-100-100-100-100-100- 100- lOO-J 00-100-100-100-100-100-100-1 00-100-1 oo-ioo-ioo-ioo-ioo-ioo-loo-ioo-iOu-loo 

348- 100-100-100*100-1 00-100-1 CO-100-100-100-1 00*100-100-100-100-100-100-100-100-100- 100-100-100-100*100-100-100 

♦ * 

349- 100-100-100 498-100*100-lQO-100-100-100-100-10C-100-iOO-10C-100-100-100- 100-130- 100-100-100-100-100-100-100 

+ ^ ^ * 

350 499-100 499-100 490-100-100*100-100-100*100-100-100*130-100-1 CO-lOO-lCO-lOO-lOfl-100-100-100-1 00-100-100-100 

351 466 466 494 487 487 495-100-100-10O*100-100-lD0-lO0-l00-100*100-100-100-100-100-100-100-100-lO0-l00-100-lO0 

352 454 454 495 494 495- 100-100- 100-100-100-100-100- 100-100-100-1 00-100-100*100-100-100-100-100*100-100-100-100 

K- V 

353 443 443 444 456 459 471 482 499-100-100-100-100-100-100-100-100-100-100-100-100-100*100-100-100-100-100-100 

354 422 431 435 447 457 469 481 499-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100 

» * 

355 401 402 433 434 446 458 472-100-100-100-100-100-100-100-100-lCO-10l>-100-100-100-100-100-100-100-100-10i)-100 

* * 

356 399 399 399 421 424 436 459-100*100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100 

»*<■* - 

357 397 357 397 412 422 435 450 488 499-100*100-100-100-100-100-103-100-100-100-100-100-100-100-103-100-100-100 

» 

358 395 394 399 398 400 4X3 425 475 489 499-100- 100-100^10U-lOO-100-100-lOO-100-100-iOO-iOO»10i)-lOO-100-10D-100 

359 394 397 394 390 391 398 413 464 477 491-lOO-lOO-lOO-iOO-lOO-lOO-lOO-lOO-lOO-lOO-lOO-lOO-lOO-lOO-lOO-lOO-lOO 

360 401 399 354 383 387 396 411 425 468 481 493-100-100-100-100-100-100-100-100-100-100*100-100*100-100-100-100 

«*»•♦* MANHATTAN ‘ »*»*♦ « 

361*415*400 397 393 394 400 411 426 484-100-100-100-100-100-100-100-100-100-100*100*100-100-100-100-100-100*100 

362*100*461 460 401 401 413 425 472 486-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100-100 
***** AKRCfl 
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HOR COORD = I VERT COORD = J 


EARTHS AT 

DAltY WEATHER DIAGNOSTIC 

PAGE 1 CAV236 TIME 2% GKT 


HAP 11 00-24 GHT SOLAR RAO LY/OAY 


.06 20T 208 20, 210 211 212 213 214 213 216 21T 218 21, 220 221 222 223 224 225 226 22T 228 20 231 

335' U4A114 2,1 631 628 625 622 618 614 610 636 633 645 642 5,2 58, 488 487 487 485 485 531 530 3 

336 2,6 lini5 114 114 113 27, 276 457 457 484 485 520 520 487 486 4,1 4,0 488 48 , 438 3 31 381 332 252 370 5o4 

337 2,5 115 lirir4.114 114 114 113 113 113 141 142 142 4,1 4,0 4,0 4,4 4,3 4,3 338 337 363 334 371 525 214 2,7 

33 8 2,6 116 116 114 U5Tl5.114 113 113 141 142 143 143 147 146 204 203 203 341 33, 33, 424 425 423 487 487 2,8 

33, 2,5 116 115 US 1X5 115 rini4.114 143 143 144 145 147 147 205 204 205 381 380 377 427 376 4,1 4,1 4,0 
340 2,4 13, 13, 116 115 115 11. 115 -143^1. 144 145 210 216 205 205 207 383 332 37, 37, 373 4,4 4,4 . 

3U 317 141 141 117 116 116 115 115 144 144ui; 113 , 176 212 217 207 208 203 162 362 383 331 4,8 4,7 4,. 530 577 

3.2 317 142 142 117 116 115 116 114 121 114 114 ..3-^177.217^210 164 163 163 335 384 383 220 220 4,, 583 57, 

343 318 142 143 117 117 117 122 122 122 114 114 113 177 183 21, .65=^165^164 164 164 385 223 221 3 ^ 

3.4 318 143 303 276 123 122 122 122 122 115 114 114 183 187 221 165 165 .64^.65^390^24 223 306 392 

345 6B5 510 284 283 233 282 283 123 123 115 123 124 188 185 222 167 166 167 3,3 3,2 533.39,^3,7^,5 3,1 3,0 587 

3.6 668 4,3 285 235 285 235 124 123 123 125 124 125.189 189 223 168 523 320 61, 63o 429 427 452 451 ^50^448^649 

347 :r,%,5 287 286 286 2Bo 495 4,5 4,4 4,3 123 izi 187 190 225 526 626 622 643 633 636 428 430 423^425 424 624 

3.8 670 4,rr87.28 7 2 87 2 8 7 4,6 4,7 4, 8 4,7 4,5.49 5 19 1 331 330 62, 62 8 6 4 8 6 4 6 643 64 1 637 63 6 431.4 28 4 24 625 

3., 672 301 288 28:^^8.288 500 4,9 501 64, 64^ 666 335 334 330 633 656 653 64, 646 644 642 637 637 437 454 658 

350 673 587 374 373 371 5:rJ:8>.446 46, 678^6,^3:r 308.305 330 635 663 631 652 .50 647 645 641 66, 561 560 .55 

351 678 377 374 374 372 451 474 4:r::5.37; 370 383 616 -:"305.610465^637 636 634 630 648 674 5.4 563 564 563 

352 67, 5,2 628 412 412 4,2 476 474 686 Ls 370 697 .66 665 615 6.2 665 653.661^65,^655 .79 .78.67. 566 5.6 666 

353 718 632 632 630 630 6,4 476 475 5,4^92 5,2 6,8 66, 667 .67 664 667 665 664 661 634.684^681^676 569 56, 570 

354 720 635 633 633 633 6,7 .94 .93 .^O 5,4 5,4 700 6,8 6,7 c6, 6.7 66, 663 665 63, 687 6B6 6S2 630 571 572 668 

355 722 721 71, 4,2 476 554 6,7 6,4\,3 5,8 612 703 700 6„ 6,8 6,3 6,3 6,2 .92 4.8 6,0 63, .84 576 573 572 372 

356 578 577 577 57, 573 717 700 6:7.695 599 615 70, 701 700 699 696 694 643 470 4.9 518 517 579 572 575 575 672 

357 5B1 57, 578 577 576 720 720 716 678^00.707 617^ 703 7 02 7 0 0 6,7 6 4 5 645 473 4 5 8 4 5 6 6,1 685 5 7 6 6 7 6 605 606 

35B 72, 728 653 507 57B 723 722 71, 705 636 6:777706.704^03 644 645 4U 457 457 456 627.671 606 607 608 40S 

35, 732 731 657 656 657 .5. 655 652 640 63, 634 6,7 6,5 6,3 703 ^‘^^^4J1_^472 458 451 455 674^683 60, 610 611 ,09 

■ t % ~T r>o -Tn» 7n9 rkT? a 5S 436 67?^c73 686^611 536 3X8 

360 735 659 660 660 659 65B 65B 645 642 658 656 t.v2 6^1 708 70-* 702 

«- 6,, .61 660 666 666 ,00 ,06 6,6 622 626 626.6,0.6,6 660 68, 62. ,26 620.6,0 

I.,::;,:.., .O. .O, O.. 6,2 6,, ..O .a, .O. .,6 o., „» .a, ..O 6,. 626 626 6,2 6,2 6,1 6,6 626 626 620 620 

ARkCH 


5.2 Agronomic Growth 


Agronomic Grcwth and display of growth parameters requires two 
programs: 

1) AGRUN grows in each i , j day the crop on a daily basis using 
historic cell characteristics and daily meteorological data; 

2) DAYRUN displays in a computer printout the daily cell status 
for each i ,j,k. 

The primary output produced by this section is a daily status file which 
also contains data concerning plant growth from planting to present. 

This information is updated continuously and provides a basis for yield 
prediction. This file contains the following information: 

1. i.d,k 

2. Julian date 

3. Soil moisture (three- layer capacity) 

4. ET of each layer 

5. ETP 

6. Average ETP 

7. Precipitation 

8. Average stress 

9. Maximum and minimum temperature 

10. Total to-date runoff 

11. Stress in BMT interval 

12. Number of days BMT interval 

13. Number of crop days 

14. Soil type 

15. Net radiation 
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5.?,.1 AGRUN 


5. 2. 1.1 Functional Description 
Agronomic Growth Discussion 

The program AGRUN operates on the 12.5 x 12.5 nautical mile matrix 
and utilizes the Precipitation and ETP diagnoses spread equally into the 
four cells which surround each of the 25 nautical mile grid mesh points. 
The key activities performed include: 

(a) Calculation of "percolation" and runoff utilizing various 
approximations and models. The output of this step is a 
three layer soil moisture profile for the specific soil 
specified in that cell. 

(b) Calculation of actual transpiration as a function of crop 
phenology. These calculations operate on the soil moisture 
profile resident in the file from the previous day. The 
output from this calculation is the moisture budget 
account balance from the start date. 

(c) The results of the ETP and ET calculations are ratioed to 
provide a "stress" value. 

5. 2. 1.2 Mathematical Description ' 

Moisture Budget 

The basic soil moisture budget used in the EarthSat "System" was 
developed by Baier and Robertson (1966). The so-called "Versatile 
Budget (VB)" divides the total crop available moisture into several 
zones . 
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Water is extracted simultaneously from different depths in the soil 
profile permeated by the wheat plant roots in relation to the rate of 
potential evapotranspiration (ETP) and the available soil moisture in 
each zone. The general equation for the Versatile Budgeting model for 
calculating daily actual transpiration per zone is: 


n 

ET = s kj 
' j=l ^ 


S:.(i-1) 


Z. ETP.e -w{ETP. -ETP) 
3 1 ' 1 


[23] 


where 

ET^ = actual evapotranspiration for day i ending at the morning 
observation of day i + 1 
n 

2 = summation carried out from soil zone 1 to N 

j=l 

k. = coefficient account for soil and plant characteristics to 
the jth zone 

S‘ .(i-l)= available soil moisture in the jth zone at the end of day 
3 

i-1, that is, at the morning observation of day i 

Sj = capacity for available water in the jth zone 

Z. = adjustment factor for different types of soil dryness curves 
3 

ETP^- = potential evapotranspiration for day i 
w = adjustment function accounting for effects of varying PE 
rates on the AE:PE ratio 

ETP = long-term average daily PE for month or season. 
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111 







lower zones, where water is still available in proportion to the assumed 
vertical root distribution. This adjustment is introduced between 
emergence and jointing. The adjustment takes the form: 


m=j-l 

k'. = k_. + kj 2 
3 3 



1 - 


S' (i-1) 
M 
SM 


where 


( 22 ) 


k'. = adjusted k-coefficlent for the jth zone 

S' .(i-1) = available soil water in the jth zone 

J 

S. = capacity for available water in the jth zone 
3 


Three relationships between available soil moisture and the ETiETP 
ratio are: 

Type A . Water is equally available to plants for evapotranspiration 
over the range from field capacity to permanent wilting. 

Type D . Type D assumes no reduction in the ET:ETP ratio over the 
range of available soil moisture from 100% to 70% (Type D). Beyond 
these limits the ET:ETP ratio declines rapidly with drying of the 
soil after an exponential decay form relationship. 

Type G . This relationship assumes no reduction in the ET:ETP ratio 
over the range from 100% to 70% available soil moisture and a 
linear relationship over the range from 70% to 0%. 

The intensity of the evaporating power of the atmosphere must also 
be considered in analyzing the relationship between soil-moisture status 
and plant growth. In the VB, the term e-w(ETP^-ETP) accounts for effects 
of varying daily atmospheric demand rates (ETP^.) on the ET:ETP ratio as a 
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function of available soil moisture. The equation that estimates the 
value of w from the soil-moisture stress occurring on the preceding day: 


w = 7.91 


S' 

(i-D 0.100 


(23) 


To account for water losses through runoff, if applicable, a 
relationship between soil moisture in the top zone, daily precipitation 
total, and runoff is included in the VB. On days with P < 1.00 inch, 
the total amount of precipitation is considered to infiltrate into the 
soil. On days with P > 1.00 inch, runoff is estimated from equation 

( 24 ): 

Runoff^ = RRi -1 

where: I = amount of water infiltrating jrjto the soil 

= 0.9177 + 1.811 log RR.j - 0.0097 log RR^-Jil— 100 (25) 

RRi = rainfall in inches for 24 hr. ending the morning of day i + 1 


S' 

- 100 = available soil moisture in percent of capacity (Sj) 

3 . 

in the top zone at the end of day i-i. 

Equation (25), taken from Linsley, Kohler, and Paulhus (1949), 
gives the amount of water infiltrating into the soil as a function of 
24-hour precipitation total and soil-moisture content in the top zone 

before the day with precipitation. 
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It is assumed in the VB model that the water infiltrating into the 
soil recharges the moisture content in the top zone to its field-capacity 
value and that the remaining water infiltrates into the next zone and so 
forth until either all infiltration water is used up or all zones are 
brought to capacity. Drainage is obtained on days when the precip- 
itation exceeds the total of ETP, runoff, and the sum of moisture deficits 
over all zones. 

Biometeoro logical Time (BMT) 

The moisture budgeting routine includes by necessity an estimation 
of the phenological events, i.e. , a crop calendar. The procedure used 
by the EarthSat "System" was developed by Robertson (1968). 

The biometeorological time scale (BMT) for wheat and other cereals 
uses day and night temperatures and photo period. 


The final model is a triquadratic equation which relates the daily 
photoperiod and the daily maximum and minimum temperatures to plant 
maturity from planting (must be specified): 


^2 

ni = z a’(L-ao) + a'(L-aj,)^ bj(T,-b ) + 4(T,-bo)^ 

^1 

+ d^(T2-bo>+ d’(T2-bo)2 (26) 

where 

L is daily photoperiod 
T^ is daily maximum temperature 
T 2 is daily minimum temperature 
and aQ, a-| , a 2 * b^, etc. are characteristic coefficients. 


5. 2. 1.3 AGRUN EXECUTION 


Job Control Language 


//flrmiN .lOB (BR^OOl , 746 ), ANDERSON, CLASS=F 
//SORTMET EXEC PGM=IEPROCOOO,PARM='MSG=AP' ,REGI0N=60K 

//* METEOROLOGICAL SORT FOR INPUT TO AGRUN 
//* 

//SYSOUT DD SYS0UT=A 

;fsS^?rirDg°DlXK51.S0RTLIB.DISP=5HR 
//SORTIN DD DSN=MET, DISP=( OLD, DELETE ) , 

/ / DCB-(RECFM=F ,LRECL=20 »BLKSIZE=20) 

//SORTOUT DD DSN=&&METS,UNIT=SYSDA, 

//SORTWKOl DD UNIT=2314,SPACE=(CYL,(5) , ,CON^^ 

//SCKTWK02 DD UNIT=2314,SPACE={CYL,(5) , 

//S0RTWK03 DD UNIT=2314,SPACE- CYL,(5) , ,COT 
'//S0RTWK04 DD UNIT=2314,SPACE=(CYl,{5) , ,CON^ 

//S0RTWK05 DD UNIT-2314,SPACE=^(CYL, (5) , ,CONTIG) 

^SORT^FiaDS=(1.2,A,3.2,A.19.2.A).FORHAT=BI (See note #1) 

//FAGRUN EXEC FORTGCL,PARM.FORT=’MAP,ID' 

//* FIRST HALF OF AGRUN 

//* 

//FORT.SYSIN DD * 

- Fortran Source Deck - 

//AGRUN EXEC ASMFCLG,PARM.ASM='LOAD,NODECK' ,PARM.G0=O7 
//* 

//★ MODULE AGRUN 

//* 

//ASM.SYSLIB osf^=EARTHSAT.MACLIB,DISP=SHR 
//ASM. SYSCO DD DSN=&LOADSET,DISP=(MOD,PASS) 

//ASM.SYSIN DD 


(See note #2) 


- Assembler Source Deck - 


//LKED.SYSLIB DD 


// 


DD dsn=sysi.fortlib,disp=shr 
DD DSN=EARTHSAT.L0ADLIB ,DISP=SHR 


//G0.FT05F001 DD DDNAME=SYSIN 

7/'H{sfoR?i m dPn°hIs^G1 ,DISP=(0LD,KEEP .KEEP) . 

;;ARSi;^^i^osN:LAcias?A^ 

// unIT=2314,V0L=SER=IPIVIRK 
//NEWARCH DD DSN=NEW,DISP=(NEW,CATL6) 


IV-207 


// SPACE=(CYL,(10,4).RLSE), 

// unit=sysda,dcb={recfm=f,blksize-ii . 
//TEMPARCH DD DSN=ARCH2,DISP=(NEW ,CATLG) , 
// SPACE=(CYL.(10,4)RLSE), 

// UNIT=SYSDA,DCB=(RECFM=F,BLKSIZE=108) 
//METFILE DD DSN=&&METS,DSIP=(OLD, DELETE) 
//SYSUDUMP DD SYSOUT=A 


/* 

// 


NOTE 1: Data card for IBM Sort/Merge in this case sorts data by I, 0» 

Julian date. Reference publication is OS Sort/Merge Program 

release 21 . 

NOTE 2: This PARM defines the number of days meteorological data for 

agronomic model to process, normally '07'. 


Data Definition Description 


GO STEP 

FT05F001 : 

FT06F001 : 

HISTORIC: 

ARCHIVE: 


dummy file. 

Fortran error messages only. 

Historical file which contains region specific 
agronomic parameters. 

Previous CYCLE'S last day for initialization of this 
CYCLE, (initially set for first CYCLE as file LACIE. 
START) 


METFILE: Sorted Daily meteorological data for use in AGRUN. 

TEMPARCH: This CYCLE'S last day file. 

NEWARCH: Daily Archive File. 


I^5PIK)DlJGIEJi OF THE 
OEIGINAL PiiOE ,IB POOR 
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5.2.1. 5 FLOWCHART 


PROGRAM AGRUN 



CALL OPEN AG 



NO active I, J 

\ SOIL>0 


READ OLD ARCHIVE 
RECORD 



♦ FORTRAN OPENAG 
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AGRUN 
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SUBROUTINE OPENAG 
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SUBROUTINE SMTBGT 
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jr rjY OF THEi 

:,GO IS 













SMTBGT 



♦ 


COMPUTE DIFFERENCE 
OF DAILY ETP FROM 

average 





NO 



f 


COMPUTE 
DRY DOWN CURVE 
COEFFICIENT (DC) 


♦ 



< 

'f 


COMPUTE 

EVAPOTRANSPI RATION 
FOR EACH LAYER 



1 


WEIGHT = 1.0 


t 


SUM LAYER 
EVAPOTRANSPI RATION 
(ETS) 
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SMTBGT 













SMTBGT 







SUBROUTINE DAILY 
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SUBROUTINE BMTDAY 
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5. 2. 1.6 

SOURCE 

CODE 


PRINT 

NOGEN 

ASMMAIN 

CSECT 



ENTRY 

BEGIN 

BEGIN 

SETUP 

13 


L 

2*0(1) 


PACK 

PACKED*2 (2*2) 


CVB 

3*PACKED 


ST 

3, DAYSNOW 


B 

IMIT 


DAYSNOW 

OC 

F»0 • 

PACKED 

DS 

0 

«■ 

INIT 

L 

15*IBCOM#AO 


8AL 

14*64(15) 


L 

15*OPENA(rAD 


BALR 

14*15 



OPEN 

(ARCHIVE, , NEW ARCH, (OUTPUT) * TEMP ARCH* (OUTPUT) ) 


OPEN 

(METFILE* (INPUT*REREAO) ) 


LA 

5*4 


L 

9*0AYSN0W 


LA 

8*METPEC 

PEADH 

8AL 

3*REAUMET 


ACT 

9*PEADH 


LA 

H*METREC 


L 

9*DAY$rM0W 

KEAURE2 

HAL 

3*REAOMET 


LA 

a, 20 ( 8 ) 


BCT 

9,REAORE2 


LA 

6*0 

■K- 


L 

2*ARCHIVA0 


L 

10*SOILMATA 


LA 

11*3024 


MVI 

DARCH,X»7F* 


MVl 

UPDATPEC,X»7F‘ 


MV I 

WNEWAPCH*X»7F* 

TESTSOIL 

CLI 

0(10) *X'00* 


Bt 

ZEROSOIL 


HAL 

3*READARCH 


CR 

5*6 


BNE 

SKIPMET 


LA 

a*METREC 


L 

9*DAYSN0W 

PEAUPEC 

HAL 

3*READMET 
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LA 

P*20(R> 


RCT 

R*READPEC 


LA 

A • 0 




» 



SKIPMET 

L 

7*MFTDAYAD 


LA 

6 * 1 ( 0 * 6 ) 


LA 

e*METREC 


L 

9*DAYSN0W 

« 



MOVEMET 

MVC 

0(20,7) *0(8) 




CALLPLY 

L 

1P,PAILYADD 


BALR 

14,15 


PAL 

3*WRITARCH 


LA 

8,20(8) 


PCT 

9,M0VEMFT 





PAL 

3,UPPATP 


LA 

10,2(10) 


PCT 

11,TFSTR0IL 




RETURN 

L 

13,4(13) 


RETURN (14*12) *RC=0 

* 



7FP0S0IL 

LA 

2, dummy 


CR 

5,A ^ 


RME 

CONTINUE 


LA 

R,METRFC 


L 

R,DAY5N0W 

NEXT 

RAL 

3,REA0MET 


LA 

R,20(8) 


PCT 

R,NEXT 


LA 

A , 0 

CONTINUE 

LA 

A , 1 ( 0 , A ) 


L 

4,DAYSMnw 




PU T7RFC 

RAL 

3,WRTTARCH 


RCT 

4,PUT7RFC 


RAL 

3,UP0ATF 


L 

2,APCHIVAD 


LA 

10,2(10) 


RAL 

3,READARCH 


RCT 

ll,TFSTSniL 


R 

RETURN 

a 



RFADARCH 

READ 

DARCH,SF,ARCH,IVE, (2) , »S* 


CHECK 

DAPCH 


RR 

3 



BilPRODUCTBILi'If OP THR 



ORIGINAL MGE IS POOR 
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«■ 


WRITAPCH 

WRITE 

WNEWARCH.SF*MEWARCH» (2) * »S» 


CHECK 

WMEWAPCH 

■» 

PP 

3 

UPDATE 

WRITE 

UPDATREC,SFfTFMPAPCH» (2) * 'S» 


CHECK 

UPDATREC 


PR 

3 

PEADMET 

READ 

DMET»SF»MFTFILE» 18) » ’S* 


CHECK 

DMET 


PR 

3 

ARCHIVE 

OCR 

DSnRG=PS»MACRF=R.DDNAME=APCHIVF 

•c- 

MEW ARCH 

DGB 

DSOPG=PS?MACPF=W,nDMAME=NEWARCH 

TFMPAPCH 

DCB 

DSORG=PS»MACRF=W,DDNAME=TEMPARCH 

mftfile 

F?0 

DCB 

D50RG=PS»MACPF=RCfDOMAME=METFILE 

nc 

F'?0» 

F?8 

DC 

F»?8» 

F?Of 

DC 

F»206' 

F334 

DC 

F»334» 

F7F6 

DC 

F»756* 

ARCHTVAD 

nc 

V(APCHIV) 

OA ILVADD 

DC 

VCDAILY) 

IPCOM^AD 

DC 

V(IRCOM«) 

MFTDAYAO 

DC 

V (MFTDAY) 

OPENAGAO 

DC 

V(OPEMAG) 

SOILMATA 

DC 

V(SLASG) 

Oin^FT 

DC 

F»n» 

DUMMY 

DC 

lOflX'FF* 

mfTRFC 

DS 

on 


DC 

END 

?OXL20»00' 
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SUBROUTINE SMTBGT 

INTEGER*? NDAY(5) »CRPDAY»TS0IL*RAD 

integer*? SOILC(3*?7)/5*l*3f 1^1*4*1*3»1»1*3*3*1*3*4*1*4*1*1«A*3* 
Xl,4,4*3»l*l»3tl*3*3»l*4*3*3fl*5*3f4f3*4tl*3*4f3t3*4*4f 
X4*lfl»4»l*3t4f If 4,4* 3*1*4* 3t3*4*3* 3*4*1 ♦4f4» 3^3*4/ 

INTEGER S0IL,S(3) 

REAL SM(3) *ET(3) ,STRINT(5) ,FCL(3*6) 

REAL INFILT*C(3) 0 

DATA FACTOR/0.05???98/ 

REAL Cl(3*6)/»6*«?,0«**6,»?*0#*» 55 *»3*0«**4** 35 **15**45*»35*»?* 

X .45*.35*,1/ 

DATA FCL/8. 75*35. ,131. ?5*8. 75,35. *131,?5*5.75*?3. 0,86. ?5, 0 

X3.75*15. *56.?5*8.75,35. ,131.?5,3*0./ 

COMMON/PHYS/SOIL 

COMMON/ARCHIV/I, J,K,JUL,8MT *SM,ET*ETP, ETPAVEfPREC IP, STRESS, TMAX, 

X TMTN*CRNOFF,STRTNT*NOAY*CRPOAY,TSOIL*RAD 
IBMT=BMT+?.0 

IF (IBMT.GT. 6. OP.1BMT.lt. 1) IBMT=1 
DO 10 I?=l,3 
C(I?)=C1 (I?,IBMT) 

S(I?)=S0ILC(I?,S0IL) 

10 CONTINUE 

IF(BMT.LE.1.5) GO TO 100 

C(?)=C(?)*(1.+C(1)*(1.-SM(1)/FCL(1,S(1) ) ) ) 
C(3)=C(3)*(1.+C(1)*(1.-SM(1)/FCL{1,S(1) ) ) 

X +C(?)*(1.-SM(?)/FCL(?,S(?) ) ) ) 

100 CONTINUE 0 

ETS=0. 

FOLLOWING CALCULATION ASSUMES A MODFL START OF 1 JUNE 
AND MODIFIES FTPAVE ACCORDINGLY 
IF(JUL.LT.15?) JUL=15? 

IF(JUL-161) 110,1?0,1?0 

no ND=JUL-15? 

NT=ND+1 

Fl=FLOAT(NO)/FLOAT(NT) 

F?=l. /FLOAT (NT) 

ETPAVE=F1*ETPAVE+F2*ETP 
GO TO 130 

120 ETPAVE=0.9*FTPAVE+0.1*ETP 
C 

130 DEVETP=ETP-ETPAVE 
DO 200 L=l*3 
DC=1.0 

IF (S(L) .E0.3) GO TO 150 
X=70.-100.*(SM(L)/FCL(L,S(L) ) ) 

DC=1.0/(1.0 + EXP(FACTOR*X) ) 

IF(X.LT.0.) DC^=1.0 

150 ET(L)=C(L)*0C*ETP*EXP(-.01*DEVETP* (7.91-1 1.0*SM(L)/FCL{L,S(L) ) ) ) 

IF (ET(L) .GT.SM(L) ) ET(L)=SM(L) 
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ETS=ETS+ET(L) 

?nO CONTINUE 

IF(ETS,LE.ETP) GO TO 205 
DO 204 L=l*3 

204 ET(L)=ET(L)*ETP/ETS 
205 CONTINUE 

PCPINH=PREC TP* 0,03937 
IF(PCPINH.GT.0,5) GOTO 210 
INFILTsPCPlMH 
GOTO 230 
210 CONTINUE 

IF(PCPINH.GF.l.O) GOTO 220 
INFILT= (POP TNH-0. 5) *0.8354+0.5 
GOTO 230 
220 CONTINUE 

INFILT=0 .9177+ALOG (PCPINH) * ( 1 , 8 1 1 -0 . 97*SM { 1 
230 CONTINUE 

INFtLT=IMFlLT/.03P37 
IF(INFILT.GT.prECTP) infilt=precip 
EXCFSS=INFI l T 
DO 500 L=l>3 
SM (L) =SM (L) +FXCF5S-ET (L) 

EXCFSS=SM (L) -FCL (L«S (L) ) 

IF(FXCESS.LT.O.O) EXCESS=0.0 
IF(L.EQ.3) RUNOFF=PRECIP-INFILT+EXCFSS 
IF (SM (L) .GE.0.0) GO TO 300 
SM(L)=0.0 
GOTO 400 
300 CONTINUE 

IF (SM (L) .GT.FCL (L»S (L) ) ) SM ( L) =FCL ( L * S ( L ) ) 
400 CONTINUE 
500 CONTINUE 
STR=0. 

CPNOFF=CRNOFF+ RUNOFF 
IF(8MT.LE.-n.5) GO TO 2700 
IF (FTP. GT. 0,0) STRESS=1 . 0-ETS/ETP 
2700 RETURN 
END 


100 


fN™r2%r.?r4.PB,?7WSLM.T(4,P8.?7,.SL^^^ 

INTFGER*? sTATF»COUNTY,CRn*SOILrPLNDAT*TSTSIT*L 

PFAL LAT*LOM - - 

COMMON/HIST/I I ♦JJ»KKfLAT 


. I OKI 


Mt nTKin.Yi DADF * STATE f COUNTY 


XPLNOAT*TSTSTT 
COMMON/SLASO/SLPAT »SALAT 
FOUTVALFNCF (SLMAT»SLE0) 
CALL HSTOPN(IT) 

DO 100 1=1 *30?A 
CALL HSTRD(I) 
IJ=IFIX(LAT*10.) 


LATl=IJ 

Il=lI-?05 


SLMAT (KK» J1 .11) =SOIL*?'56 + PLNDAT 
SALAT(KK*J1 .I1)=LAT1 


CONTINUE 
CALL HSTCLS 
RETURN 
END 


CRO.SOIL* 
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SURROUTINE DAILY 

INTFGER^^? MDAY (5) »CRPDAY*TSOIL*MAXT»MINT*RAD» 

X RMTl ♦RNET»PET,S0LAR*I1»J1»PRFC 
IWTFGER*2 salat (4»28»?7) ,SLMAT (4?28»?7) 

IMTEGER<»2 IDM,IDT 
INTEGER PLNDATfSOIL 

REAL BMT»SM (3) »ET (3) » ETP»ETPAVE»PREC IP t STRESS »STRINT (5) 
data P/0. 0174532925/ 

COMMON/TEMPE/nAYLFN»TMAXE*TMIMF»PLNDAT 

COMMON/SLASG/SLMAT* SALAT 

COMMOM/ARCHIV/T » J » K ♦ JliL » BMT ,SM,F.T*ETPfETPA\/E»PRFCIP»STRESS»TMAX» 
X tmin,crnoff,strtnt,mday»cppoay»tsotl*rad 
COMMON/PHYS/SOIL 

COMMON/METDAY/I 1 » J1 f PREC»PET>'RNET»SOLAR*MAXT»MINT »RMTl , I DM 

12=1-205 

J?=J-334 

K? = K 

LAT=SALAT (K, J?,I?) 

XLAT=FLOAT (LAT)/in» 

I3 = SLMAT 12) 

SOIL=I3/256 
PLNOAT=NOD ( T3f 255) 

IF (vJUL.ME*152.0R.S0IL.NE.27) GO TO 10 
TS=SM ( 1 ) +SM (2) +SM (3) 

SM (1) =0,n5<^TS 
SN(2) =0.?^^TS 
SM < 3) =TS*0 .75 

10 mt-maxt 

TMAX=FLOAT(MT) /lO. 
jmaXF=1 .A*TMAX+32. 

MT=MINT 

TMIN=FL0AT (MT) /lO . 
jMTNF=1.F«TMTN+32, 

RAn=RMFT 

CALCULATE OAYLFMGTH 

JIJL = JUL+) 

DAY=JUL 

FPH = 23,5-«-SIM ( 0 . RfiG3-» (DAY-RO , ) -s-R) 

C0H = -TAN (XLAT^^P) *TAN (FPH<^R) 
n A YLEN=ARCOS (COM) *7.6408787 

CALCULATE NEW GMT VALUE 

CALL RMTDAY 
C 

MT=PET 

ETP=FLOAT (mT) / lO. 
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o o n non 


MT=PREC 

PRECIP=FLOAT (MT) /lO. 

IPMT=IFIX (PMT) ♦! 

CALCULATF SOIL MOISTURE ANO PLANT STRESS 
CALL SMTBGT 

HAY'S GROWTH COMPLETE - RETURN 

IF ( I9MT.lt. 1 .OR.IRMT.GT.S) GO TO ?0 
NDAY (IBMT)=NOAY(IPMT) +1 
STRIMT(IBMT)=STRINT (IPMT) +STRFSS 
?0 CONTINUE 
RETURN 
FNO 
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SURROUTIME RMTDAY 

INTEGER PLNnaT 

REAL SM (3) fFT (3) »STRINT (R) 

INTEGER*^ NDAY (5) »CRPOAY*TSOlL*RAD 
COMMON/TEMPF/DAYLEN»TMAXE*TMlNEf PLNDAT 

COMMON/ARCHIV/I, J.K.JUL » 8 MT*SM,ET *ETP,ETPAVE fPRECIP, STRESS »TM a; 
X Tmin*CRNOFF*STPTNT *N r)AY»CRPDAY»TSniL*RAD 

C INITIALIZE 

C CLEAR THE VI PART 

C SET THE RESULTING 

c THF planting date 

C SET THE RESULTING 

C PLANTING DATE AND 

C 

V] =0.0 

IE ( JUL-PLNHAT) 10.?0,30 
10 CONTINUE 
RMT=-1 ,n 
GOTO 900 
?0 CONTINUE 
CPPOAY=l 
BMT=0.0 
GOTO 900 
30 CONTINUE 


OF THE EQUATION. 

BMTNEW TO -] IE THE DATE IS BEFORE 
AND exit. 

BMTMFW TO 0 IFTHE DATE IS THE 
EXIT. 


PROPER COFEEICIFNTS BASED ON THE PREVIOUS RMT. 
SET VI TO 1 EOP THF 'A* COEFFICIENTS ON THE FIRST SET. 

IF RMT IS > OR = TO 5.0 THEN SET IT TO 5 AMD EXIT. 

IRMT=IFIX (RMT+3.0) 

GO TO (900»40^50*60»70»80»900) , IBMT 
40 CONTINUE 
R0=44.37 
P 1=0. 01 086 
B?=-0. 000233 
R3=0. 00973? 

P4=-0. 0002267 
V 1 = I . 0 
GOTO 90 
SO CONTINUE 
A 0=8. 41 3 
A1=1.00S 
A?=n.o 
B0=P3.64 
BI=-0.00351? 

B?=0. 00005026 
R3=0. 0003666 
B4=-0 .00000428? 


REPRODUUIBILlIir OF THF 
OEIGINAlu 
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GOTO 90 
ftO CONTINUE 
A0=10.P3 
Al=n,9256 
A?=-0.060?S 
B0=A2.6E 
Bl = 0.000?‘3'iP 
B2=0.0 

03=0.0003941 
B4=0.0 
GOTO 90 
70 CONTINUE 
A0=10.93 
Al=1.389 
A?=-0.0P191 
B0=42. 18 
B1 = 0.00024«S8 
B?=n,o 

83=0.00003109 
B4=0.0 
GOTO 90 
80 CONTINUE 
A0=24.3« 

A 1 =-1.14 
A2=0.0 
80=37.87 
B1=0. 00008733 
B2=0.0 

B3=0. 000344? 

B4 = 0.0 
90 CONTINUE 

IF (TMAXF.lt. PO) TMAXF=B0 

IF (TMINF.lt. RO) TMINF=:P0 

D=DAYLEN-A0 

TMX=TMAXF-Bn 

TMM=TMINF-RO 

IF (VI .EG. 1 . 0) GOTO 100 

Vl=n* ( A1 ♦A?<^D) 

IF (VI. LT. 0.0) vi=o.n 
100 CONTINUE 

V2=TMX* (B1+P2*TMX) 

IF (V2.LT.0.0) V2=0.0 
V3 = TMN» (R3 + R4<^TMN) 

IF (V3.LT.0.0) V3=n.O 
enAY = Vl<» (V2 + V3) 
BMT=RDAY+RMT 
CRPOAY=CRPDAY+l 
900 CONTINUE 

IF (RMT.GE.S.O) RMT=-1.0 

RETURN 

END 
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5,2.2 DAYRUN 


5. 2.2.1 Functional Description 

The program DAYRUN produces the following: 

1. A listing by ijk cell of all status information for each cell 

2. Maps of selected parameters, selected cells for the test area 
of interest. 

These functions are performed on a daily basis and are the verification 
mechanism for agronomic growth. 

5. 2. 2. 2 Mathematical Description 
- none - 

5. 2. 2. 3 DAYRUN EXECUTION 


Job Control Language 


//DAYRUN JOB (BR9001 ,746) , ANDERSON, CLASS=F 
//SORTAG EXEC PGM=IERRCOOO,PARM='MSG=AP' ,RE6I0N=80K 
//* 

//* AGRONOMIC DATA SORT FOR INPUT TO DAILY LISTING 
//* 

//SYSOUT DD SYS0UT=A 

//SYSPRINT DD SYS0UT=A 

//SORTLIB DD DSNAME=SYS1 .SORTLIB,DISP=SHR 

//SORTIN DD DSN=NEW,DISP=(OLD, DELETE), 

// DCB=(RECFM=F,BLKSIZE-108) 

//SORTOUT DD DSN=&&AG,DISP=(NEW,PASS), 

// UNIT=SYSDA,SPACE=(CYL,(10,4)),DfJB=(RECFM=F,BLKSIEE=108) 
//SORTWKOl DD UNIT=2314,SPACE=(CYL, (5) , ,C0NTIG) 

//S0RTWK02 DD UNIT=2314,SPACE={CYL,(5) , ,C0NTIG) 

/7S0RTWK03 DD UNIT=2314,SPACE=(CYL,(5) , ,C0NTIG) 

//S0RTWK04 DD UNIT=2314,SPACE=(CYL,(5) , ,C0NTIG) 

//S0RTWK05 DD UNIT=2314,SPACE=(CYL, (5) , ,C0NTIG) 

//SYSIN DD * ■ ^ 

SORT FIELDS=(13,4,A,1,4,A,5,4,A,9,4,A),F0RMAT=BI (See Note) 


//DAYRUN EXEC FORTGCLG,PARM.FORT='MAP,ID' 
//* 

//* LOAD MODULE DAYRUN 
//* 

//FORT. SYSIN DD * 
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Fortran Source Deck 


//LKED.SYSLIB DD 

// DD DSN=EARTH.LOADLIB,DISP=SHR 

//GO.FT05F001 DD DDNAME^SYSIN 
//FT06F001 DD 3YSOUT=A 

//FTlOFOOl DD SYS0UT=C,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330), 
// SPACE=(CYL.(30.10),RLSE) 

//FT09F001 DD * 


FT09F001 data cards 


//FT29F001 DD 
//SYSIN DD * 

1* 

If 

DSN=&& AG , D I SP= ( OLD , DELETE , KEEP ) 
FT05F001 data cards 

Data Definition Description 

GO STEP 

FT05F001 : 

Map overlay data for output display. 

FT06F001 : 

Map print file. 

FT09F001 : 

Days to process in 12 format. 

FTlOFOOl: 

I, J listing print file. 

FT29F001 : 

Sorted agronomic daily status file. 


NOTE: Data card for IBM Sort/Merge program, in this case sorts the data 

by Julian date, I, J, K. Reference publications is OS Sort/Merge 
Program release 21. 


THE 


REPRODUCBILITY OF 
Q-Biamkh PAGE iB B 
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B.2.2.4 DATA DESCRIPTION 
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PROCESSING DAYS - DATA CARD 


FORMAT: (12) 




Variable 

Format 

Cols 

Description 

NDAYS 

12 

1-2 

Number of Days in present 
run to be listed 


SAMPLE CARD: 



I ! 3 < 5 t I I 9 il II 1! IJIJ 15 IS II It 13 !J 31 33 33 3« 35 35 31 31 31 35 31 33 33 31 35 35 31 31 39 49 41 43 43 41 45 4S 43 41 49 59 51 S3 53 51 55 56 51 51 59 SO El S3 63 E4 65 ES 61 61 69 39 31 13 33 14 35 36 31 35 39 II 


11 1 1 1 1 1 n 11 M 1 1 n 1 1 11 1 II 1 1 11 1 n 1 1 1 1 1 1 1 11 1 1 1 M 1 1 1 i 1 11 1 1 11 1 1 1 11 11 1 11 n 11 1 1 1 1 1 1 11 1 1 
2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 Z 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
33333333333333333333333333333333333333333333333333333333333333333333333333333333 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 /I 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

5 3 5 5 5 5 3 5 5 5 5 3 5 S S 5 5 5 5 5 3 3 5 5 5 5 5 5 5 3 5 S S 5 5 5 S 5 5 S 5 5 S 5 5 5 5 5 S 5 3 5 S S 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 3 5 5 5 5 5 5 5 
fiGSS56G6663536666E66G6G6G666e686666S666B66666&6G6G6GGEC66G6GB6G6GGG&6G666GG66EG6 
7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 1 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 n 7 7 7 7 7 7 
1 1 8 3 3 8 8 8 S 6 S e e a 8 8 e 8 8 G 8 8 8 8 8 8 8 8 8 3 8 8 8 e 8 B 8 8 B 8 8 8 8 8 B 8 8 e 8 8 8 8 e G G 8 8 B 8 8 8 8 8 8 8 S 8 8 0 G 8 8 8 8 8 8 8 8 8 8 
889999938999939990999999399998939999 9 99999989S9S9399S999 8 9999999389399989389980R 

1 f i J 8 MO IM/ 13 14 15 16 i; U 19 20 21 22 2J 24 25 26 22 21 23 30 31 32 33 54 35 3B 31 38 39 « 41 42 43 44 45 45 41 45 43 iO 51 52 53 54 55 5S 51 SB 55 6D Bl 62 63 C4 6S 66 51 CS £9 ” M 17 11 H 15 16 H 13 ?3 W 
PRYOR 5081 
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FT05F001 DATA CARDS 


MAP OVERLAY 
DATA CARDS 




102 CARDS 


MAP OVERLAY DATA CARD 
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MAP OVERLAY - DATA CARD 


FORMAT: (80A1/20A1) 

Note: Format requires two cards per line 

Variable Format Cols Description 

OVLY (I,J) 80 A1 1-80 Output 1 ine masked with 

area boundaries 

Card #2 

OVLY (1+80, J) 20 A1 1-20 Output line continued 


SAMPLE CARD: 



I 2 3 < 5 E I 1 S nil 1113 14 15 If II I! IJ IB 11 I! 33 21 25 26 21 7» 21 H 31 32 33 14 IS 36 31 3! 3S 411 41 42 43 44 43 46 41 49 49 SB SI S3 S3 SI SS SE SI SB SI SO El 62 63 64 ES 66 61 ES 65 ID II 12 11 14 IS 16 II 16 IS ED 


1 1 1 1 ! M 1 1 1 1 n 1 1 1 1 1 1 1 1 n I n 11 11 It 11 1 n 1 1 1 1 11 1 n 1 1 11 1 1 1 1 1 1 1 1 11 1 1 11 n M 1 M 1 1 n It 11 1 

2 2 2 2 2 2 Z 2 2 2 Z 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 ■■ 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

4 4 4 4 4 4 4 4 ■ ‘ 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 M 4 4 4 4 M 4 4 4 4 4 4 

5 5 5 ’ 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 

6 8 6 6 E 6 6 6 G E 6 6 6 6 6 6 6 6 6 6 6 6 G G e EG 6 6 G G G G G G G 6 G S 6 G G 6 G 6 6 6 G 6 6 6 6 6 6 6 6 G G G G G G G 6 6 G 0 6 G G 6 6 6 G G G G G G G 


! ] 7 7 7 7 1 1 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 



9 9 $ 9 9 9 9 9 9 9 3 3 S 9 9 9 9 3 S 9 9 3 9 9 9 9 9 8 3 S 9 9 3 9 S 9 9 9 3 9 9 9 9 9 9 9 9 9 9 G 9 9 9 9 9 9 9 9 9 9 9 0 3 9 9 !> 9 9 9 9 9 9 9 9 9 9 9 3 3 3 


i 3 i / t ' S no Ml? 13 M 1!> IC i; 10 19 7U n 77 ?] n ?B ?9 so 31 a? 33 34 35 IS 33 39 40 41 47 43 (4 45 4C 44 40 49 9(1 VI 57 S3 54 S5 56 57 58 53 63 SI (i Cl 65 69 SI U 69 79 M 17 '3 M H 76 M H IS .7 

H4YOM »70lil 


REPRODTJCIBIT^TTY OP TSP 













dayrun 
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dayrun 
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DAYRUN 








SUBROUTINE MAPOUT 



♦ 
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SUBROUTINE CHRFIX 
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5. 2. 2.5 SOURCE CODE 


integers* 2 OVLY(101*56) »NUAV(S) »CHPUAY*TSOlL»lr!AU 
INTEGER*2 A (1 4 » 14 ) » B ( 1 4 » 1 4 ♦ 8 ) » V ( B ) 

X TMiNfCRNOFF »STRINT*NDAY»CRPOAY *TSOlLfRAU 
COMMON /MAP/OVLY 
READ(9»1999) NOAYS 


1999 FORMAT(I2) 

READ(5*2000) OVLY 
?UOO FORMAT (80A1/21A1 ) 
CALL OPENAG 
DO 500 IJK=1*NDAYS 
JULD=-999 
DO 20 N=l*8 
00 10 L=l»14 
DO 10 M=l*14 


10 B(L»M»N)=-9999 


?0 CONTINUE 
NPTS=0 

WRITE ( lOf 2003) 

WRITE (10»2004) 

WRITE110»2002) 

DO 100 IJ=1»3024 

IFdJ.EO. 1) JULb=JUL 

IF { JUL6.NE. JUL) GO TO 55b 

IP ( I J.EQ. 1 . AND. IJK.NE. 1) GO TO 555 

CALL AGREAD(I) 

IP (10. £0.1) JUL6=JUL 
IF ( JUL6.NE: . JUL) GO TO 5bfa 
&58 CONTINUE 

IF (I.LT.DSTOP B 
NPTS=NPTS+ 1 

IP (NPTS.LT. 18) GO TO 25 
NPTS=0 


25 

2001 

2002 


WRITE(10,2003) 

WRITE ( 10 »2004) 

I.J,K,OUL.B-.T,HM.tT,tTP,tVPAVt.P«tCIP.STHt.S, 

X TmAX»TMINiCRNUFF, 5TRINT»NDAY»CRPDAY,TS01L»RAD p,Hlb) 

F0RMAT(/dX,4I4,F5.2,8F6.1,F6.2,3Fb.l,R«. d/»12X,5P 7.2 815) 

PORMAT(lX,/,lXd COL ROW i/4 JUL BMT SM(1) SM 2) Smi) ET( ) 
X‘ ET(2) ET(3) ETP ETPAV PREC bTH TmAX TMIN CKNOPP 


STHS2 


STRS3 

1 1 


X13X,' STRSl 
?• ND5 CRPD TSIT HAD‘»/) 

2 0 03 F 0 R M A T { ' 1 * ♦ 5 1 X » * E A R T P( S A T ' ) 

2004 format (39X» 'DAILY WE ATHEK/STRESS 


STRS4 STRS5 NDl ND2 NU3 ND4'* 


CELL SlATUb'//) 


28 CONTINUE 


lV-243 


L=M0D(It2) 

IFd.tQ.l) GO TO 100 
L=MOO( J»2) 

IF(L.NE.l) GO TO 100 

IF (JUL.GT.JULO) JULD=JUL 

JUL6=JUL 

11=1-205 

Jl=J-334 

V{1) = (SM(1)+SM(2)*SM(3) )<^10. 

V (2)=PRECIP»10. 

V (3)=ETP*10. 

V(4)=(ETP-(ET(1)+ET(2)+ET(3) ) )^M0. 
V(5)=BMT*10. 

V (6) =HAD*10 

V ( 7)=TMAX<^10. 

V (M) =TM1N«10. 

Il=< (Il-l)/2) +1 
Jl=( (Jl-D/2)*! 

DO 30 L=l*8 

30 b(Il*Jl*L)=V(L) 

100 CONTINUE 
566 CONTINUE 

DO 200 INJ8=1,8 
DO 150 JPB=1» U, 

DO 150 MEB=ltl4 

150 A (JOBfMEB) =8(JP8*MEb*lNJb) 

CALL MAPOUT ( lNjB*Af JULD) 

200 CONTINUE 
500 CONTINUE 
STOP 
LNO 
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SUfclROUTINE MAPOUT (N* IVALf JOAY ) 
REAL<^B TITLE (H ) / * TSOILMST • ♦ ♦PRtClP* 


•ETP'*'E.lP-tT*»'BMT‘*' RNET 


* 'MAX TEMP»*'MIN TEMP'/ 

HEAL'^B AM0N{6)/' APRIL'»» MAY ' ♦ ♦ JUNE'*' JULY 

» » AUGUST'*' SEPT.'/ 

IMTEGER*4 NDAYS(6)/90»120»15l*lbl*21H*243/ 

INTEGER*2 OVLY<101*56) , IVAL ( 14* 14) *LINE (I'O 1) »LVAL (5) *JVAL 
COMMON /MAP/ OVLY 
DO 10 1=1*6 


NDAY=JDAY-NDAYS ( I ) 
IF(NDAY) 20*20*10 
10 CONTINUE 


1 = I*1 
20 1 = 1-1 

NDAY = JDAY-NDAYS ( I ) 

WRITE(6* 1000) T1TLE{N) *AMON(I) *NUAY .....Ttu .nun 

1000 E0RMAT(1H1*37X»a8*4X*A8*13» ' * 1975 '* 40X* ' EARTH SAT ELL 1 1 1 CORP 

206 208 210 2' * 

*12 214 216 218 220 222 224 226 228 

* 232'/) 

DO 80 1=1*14 
DO 80 J=l* 4 
L=n-1)*4 + J 
DO 30 K=l»101 
30 LINE (K) =OVLY (K*L) 

GO TO (70*40*70*70) *J 
40 DO 60 K=l*14 
KC1= (K-1 ) *7+6 
JVAL=IVAL (K* I) 

IF ( JVAL.LT.-9900) GO TO 60 
DO 50 KK=1»4 
LVAL (KK) =JVAL/10** (b-KK) 
so JVAL=JVAL-LVAL (KK) *10** (5-KK) 

LVAL(5)=JVAL 
fNST = 3 

IF(N.LT^3) NST=2 
IF(N.GT.6) NST=2 
IF(N.EG-.6)^iST=1 
1DEC=1 

IF(N.£Q.6) IDEC=0 

CALL CHRFIX ( L I NE * KC 1 * L V AL * NST * I DEC ) 

60 CONTINUE 
70 VJPITE (6*2000) LINE 
2000 F ORMAT ( 1 0 1 A1 ) 

80 CONTINUE 
RETURN 
END 


'// » 
f 

230 
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SURPOUTINE CHPEIX (LlNE*Kl*L*NfID) 
integer*? LI (101) *L(5) »NUM ( 1 0 ) / • 0 • f 

« lqt,fCJ^/*IMI^•/•-•/*IDEC/•••/ 


• 1* f *?• * *3* * ♦ 


LN-0 

LM=n 


IC = K1 

no 40 I=N,S 
IF(I.FQ.4) LM=1 
IF ( I .EO# 5) GO TO 10 

IF(LN*EQ«0«4Nn.L(T+l)*LT.O) LINE(IC)=IMIN 
10 IF ( L ( I ) •(^0« 0 • AND •LN*MF. • 0 ) LIMF ( TO =NUM ( 1 ) 
IF(L(T.) .LT.0) LM=] 

IF (L ( I ) .EO.O) GO TO ?0 


5* » *6 


#*7» » 


?n 

30 


40 

'^O 


LN=1 

LL=L(I) . 

LINE (lO =NUM ( T ARR (LL )*D 


GO TO 30 

IF (LN.EO . 0 . AND. I • 


F0,3.AMD.L(4) .EQ.O.AND.L (5) .LT.O) 


IC=TC + 1 

IF(T.NE.4) GO TO 40 
IF (ID .EO.O) RETURN 


LINE (IC) =inFC 


IC=TC+1 

CONTINUE 

RETURN 

ENO 


LINE ( IC) =IMIM 
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5.2.2.7 DAYRUN SAMPLE OUTPUT 


CCL 

80M 

1/4 

JUL BHT SM( 1 ) 

sn(2) 

SMC3) 

ET(l) 

ET(2) 

£T<3» 

ETP 

ETPAV PREC 

STP 

TMAX 

THIN 

CBNCFF 


STRSl STRS2 STRS3 

STRS4 

STRS5 

NDl 

N02 

N03 N04 NOS CRPO 

1 jIT 

RAO 



218 

343 

1 

237-1.00 5.8 

12.1 

38.6 

3.2 

0.1 

0.0 

5.4 

5.5 0.30 

C.9 

17.3 

10.7 

3.4 




3.61 9.53 

8.17 

14.53 

7.10 

10 

20 

17 

20 9 77 

0 

211 



<0 

343 

2 

237-1.00 5.8 

12.1 

38.6 

3.2 

0.1 

0.0 

5.4 

5.5 0.30 

0.6 

17.3 

10.7 

3.4 




3.61 9.53 

6.17 

14.53 

7.94 

10 

20 

17 

20 10 78 

0 

211 



218 

343 

3 

237-1.00 5.6 

12.1 

38.8 

3.2 

0.1 

0.0 

5.4 

5.5 0.3C 

0.9 

17.3 

10.7 

3,4 




3.61 9.53 

8.17 

13.67 

7.99 

10 

20 

17 

19 10 77 

0 

211 



218 

343 

4 

237-1.00 ' 5.8 

12.1 

38. S 

3.2 

0. 1 

0.0 

5.4 

5.5 0.3C 

0.9 

17.3 

10.7 

3.4 




3.6l 9.53 

8.17 

13.67 

7.99 

10 

20 

17 

19 10 77 

0 

2U 



218 

344 

1 

237-1.00 5.9 

8.2 

74.2 

3.1 

0. 1 

0.0 

5.2 

5.3 0.3C 

0.8 

17. 3 

10.8 

3.9 




3.9ij 6.13 

5.21 

11.74 

8.18 

8 

19 

19 

20 11 78 

0 

202 



218 

344 

2 

237-1.00 5.9 

8.6 

33.5 

3.1 

0.1 

0.0 

5.2 

5.3 0.30 

0.9 

17.3 

10.8 

3.3 




3.61 10.22 

7.32 

14.21 

7.13 

10 

20 

13 

19 9 77 

0 

202 



216 

344 

3 

237-1.00 5.9 

8.6 

33.4 

3.1 

0.1 

0.0 

5. 2 

5.3 0.3C 

C.9 

17.3 

10.8 

3.3 




3.ol 10.22 

6.93 

14. 60 

7.13 

10 

20 

17 

20 9 77 

0 

202 



218 

344 

4 

237-1.00 5.9 

8.6 

33.7 

3.1 

0.1 

0.0 

5.2 

5.3 0.30 

C.8 

17.3 

10.8 

3.3 



3.61 10.22 

6.93 

13.76 

7.14 

10 

20 

17 

19 9 76 

0 

202 



2 IB 

345 

1 

237-1.00 5.3 

7.0 

67.5 

3.4 

0.1 

0.0 

5.7 

5.5 0.0 

C.9 

17.3 

10.8 

3.5 




4.36 7.21 

4.28 

13.12 

7.77 

10 

19 

18 

19 11 78 

0 

243 



ZL8 

345 

2 

237-1.00 2.3 

0.0 

0,0 

3.4 

0.4 

0.0 

5.7 

5.5 0.0 

1.0 

17.3 

10.8 

3.2 




4.26 5.60 

2.47 

11.08 

8.46 

10 

19 

18 

19 11 78 

0 

243 



218 

345 

3 

237-1.00 5.3 

6.9 

37.5 

3.4 

0. 1 

0.0 

5. 7 

5.5 0.0 

0.9 

17.3 

10.8 

3.5 




3.61 10.25 

6.79 

14.45 

7.07 

10 

20 

lu 

19 9 77 

0 

243 



218 

345 

4 

237-1.00 5.3 

7.2 

68.4 

3.4 

0. 1 

0.0 

5.7 

5.5 0.0 

0.5 

17.3 

10.6 

3.5 




4.36 7.21 

4.28 

12.34 

7.23 

10 

19 

18 

18 10 76 

0 

243 



218 

346 

1 

237-1.00 2.0 

0.0 

0.0 

3.8 

0.4 

0.0 

6.2 

5.6 0-0 

1.0 

17.5 

11.3 

3.3 




3.93 5.91 

3.05 

12.22 

8.43 

10 

19 

18 

19 11 78 

0 

244 



218 

346 

2 

237-1.00 2.0 

0.0 

0.0 

3.8 

0.4 

0.0 

6.2 

5.6 0.0 

1.0 

17.5 

. 11.3 

3.3 




3.93 5.91 

3.05 

12.78 

7.87 

10 

19 

18 

20 10 78 

0 

244 



218 

346 

3 

237-1.00 2.0 

0.0 

0.0 

3.8 

0.4 

0.0 

6.2 

5.6 0.0 

0.7 

17.5 

11.3 

3.3 




3.93 5.91 

3.05 

12.22 

7.43 

10 

19 

18 

19 10 77 

0 

244 



218 

346 

4 

237-1.00 2.0 

0.0 

0.0 

3.8 

0.4 

0.0 

b.'J 

5.6 0.0 

0.7 

17.5 

11.3 

3.3 




3.93 5.91 

3.05 

12.22 

7.43 

10 

19 

18 

19 10 77 

0 

244 



218 

347 

1 

237-UOO 0.0 

7-3 

20,1 

3.8 

0. 3 

0.0 

6.4 

5.5 0.0 

0.8 

17.7 

11.4 

24.9 




4.52 7.89 

7.21 

16.53 

8.03 

6 

19 

19 

21 10 78 

0 

245 



218 

347 

2 

237-1. CO i.e 

0.3 

0.0 

4.0 

1.2 

0.0 

6.4 

5.5 0.0 

0.5 

17.7 

11.4 

3.3 




3.84 5.80 

3.82 

11.40 

3.21 

8 

20 

18 

21 10 78 

0 

245 
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206 


TSOIL.MST A'JSUST 24t 1975 

208 210 212 214 216 216 220 222 224 226 228 280 232 


335 92.0 

337 87.1 94.0 


339 92.3 89.9 122.2 98. 


341 96.2 100.9 112.3 107.1 67.3 76.0**» 

343 93.3 109.1 49.7 42.7 77.8 64.0 55.7 87.4 ♦*** 


EARTH SATELLITE C3RP. 


9 

"" a 

r^5 

^ Ja 


O 


■ ‘ --3 

i-**' ^ 
V->r 

9 ^ 
^ 9 

p-t ^ 

pi o 




345 82.5 30.4 31.7 21.0 31.1 55.1 81.7 10.6 102.4 96.9 88.8«* 


3*7 * **♦ 84.7 83.7 63.8 68.7 33.4* 3.4 2.8 88.8 

. w ^ * 


*4i«4ii|c4i 

0.0 93.0 95.8 102.9 1.5 


00 

CM 

I 


349 


351 


353 


84.2* 22.5 24.1 1.9 86.0 92-4 0.4 0.4 37.3 92.2 *101.7 11.4 

**** * •»** 


*♦* ♦ 


23.8** 1.2 78.0 1.2** 0.4 6.1 93.0 91.9* 109.6 41.6 


^ **»•* * 

25.0 69.8 1.2 78.3 33.5 93.3 *4.0* 92.6 29.4 0.0 


355 


357 


*24.6 66.3 

* 

**** 


**♦« 


68.6 68.6 99.8 93.5 C3.7 91.5 102.3 24.9 

* 


♦*71.3 86.4 99-6 99.0 0.0 97.5 100.4 101.9 99.0 


359 


29,3*+106.6 103.5 104.3 * 98.6 112.1 125.1 

*»** •** 

*: * JPSI***** 

♦•** ♦ •♦♦**•* 

103.2** 98.2 109.1 121.3 

*** 

** 


361 



335 

337 

339 

341 

343 

345 

347 

349 

351 

353 

355 

357 

359 


PRECIP AUGUST 24, 1975 

206 208 210 212 214 216 213 220 222 224 226 22J 230 232 

9.5 

7.2 9.5 

*** . 

4** 

♦ 44 

7.2 9.5 25.6 9 . 5 **^ 

♦♦♦♦ 

*♦♦ 

♦♦♦» 

7.2 9.5 9.5 S.5 9.5 9.54** 

♦♦♦♦ 

*■♦♦♦ 

♦ 

7.2 9.5 9.5 9.5 9.5 9.5 3.5 2.8 ♦=!=♦♦ 


♦♦♦44 


0.0 2.1 2.1 2.1 9.5 9.5 "^3.5 2-8 6.3 1.5 1.5*^* 

:4c **5?=*^+ 

2.1 2.1 2.1 2.1 9.5=<‘ 3.5 2.S 0.0 0.0 0.0 0.0 * 0-0 0.0 

♦♦♦ . ^ ❖ 

* * 

2 . 1 » 2.1 2.1 0.0 1.2 1.2 0-0 0.0 0.0 0.0 ♦ 0^0 0-0 

ifi <c4t4c*i/ V 

O.O*^ 1.2 O.U 1.2** 0.0 0.0 0.0 0.0» 7.0 0.0 

^ 4r;|c;^4::9: 

1.2 1.2 0.0 0.0 0.0 0.0 *0.0* 0.0 7-0 , 0.0 

* * 

» * 

* 0.0 1.2 0-0 0-0 0-0 0-0 0.0 0.0 7.0 7.0 


♦♦♦0.0 0-0 0.0 0.0 0.0 0.0 *0.0 0.0 s.o 


0.0*** 0.0 0.0 0.0 * 0.0 5.0 18.6 

0.0** 0.0 6.0 *19.6 

♦* 


EARTH SATELLITE CORP. 


361 
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335 

337 

339 

341 

343 

345 

347 

349 

351 

353 

355 

357 

359 


ETP AUGUST 24, 1975 

206 208 210 212 214 216 218 220 222 224 226 228 230 232 

*** 

mm* 

*** 

5,0 4,1 ♦♦♦ 

♦♦♦ \ 

mmm 

mm* 

4.7 3.2 3.6 3.0 ♦♦♦ 

mmm* 

4.7 4.0 3.2 2.7 2.0 1.5 

*m*m 
* m*:^* 

5.5 4.7 4.5 3.6 2.0 1.7 2.3* 2-0 **** 


9.8 7.3 6.8 6.0 3.1 1.7 2.5 3.0 2.7 4.8 b.b**** 


>?=*»♦» 


•** 7.5 7.1 8*2 6.5 1.8 * 3.3 3.8 8.7 8.0 3.1 5.1 *4.7 7.3 


7.3*^^ 9.3 9.7 9.6 6.5 5.5 10.0 3.0.0 9.3 9.3 * 7.0 8.5 


• f. ^ 

**** * ***** * 

10,9*** 7.7 9.5 7.8*»*10.6 10.3 10.7 11.1 ■" 9.0 7.8 

« *<•♦»=!» * 

* mm*v* * 

^ * 
lO.l 10.1 11.2 11.3 11. B 12.0 12.3*-» 11.2=i' 9.0 9.0 

^ m***** 

• » 

* * 

11.0 10.1 11.2 12.5 12.0 11.8 12.5 11.1 8.8 7.6 

* * 

**»« * 

«*** * 

♦11.0 10.3 11.1 10.6 9.8 8.7 10.0 8.6 8.0 


***** * 

10.3****6.8 7.1 0.7 ♦ 8.2 7.7 5.8 


**** 

5.8*** 8.5 

** 


*** 

* ******* 

* ******* 


7.0 ♦S.l 


EARJH SATELLITE CORP. 


361 
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335 

337 

339 

341 

343 

345 

347 

349 

351 

353 

355 

357 

359 

361 


ETP-ET AUGUST 24, 1975 

206 208 210 212 214 216 218 22U 222 224 226 228 230 232 

*** 

2 . 1 * 

■Jr** 

*** 

3.5 2. a ♦♦♦ 

1.7 1.2 0.7 2.3 

3.2 1.3 1.0 0.9 1.4 i.l *** 

4 ; 

3.6 3.0 2.7 1.1 1.4 1.2 2.0^= 1-7 


EARTH SATEULITS CORP. 


9.2 6.8 5.8 5.3 2.7 1.4 2.1 0.4 1.8 3.9 2.3**^* 

*** 6.8 5.8 6.5 5.3 1.6 * 2.6 2.5 5.B 7.1 7.3 1.9 *1.8 1.5 

s * 


7.0*4 7.9 8.2 7.7 4.8 4.9 2.6 2.6 3.0 2-9 * 2.4 1.8 


♦*** * 


10.1*4* 7.7 8.4 7.0*** 3.3 3.5 3.2 3.2 * 2.6 1.3 




^ * 

Jj£ * 

,2 9.6 9.5 10.5 3.1 5.3 5.5** 10.6* 9.0 9.0 

s- m*irv** 


10.3 9.5 10.4 11.9 10.7 10.2 10.4 10-2 7.6 1.4 


* 

**♦* 


4*9.6 9.0 9.8 9.1 9.8 6.2 8.1 7.3 2.7 


8.0****5.5 5.8 4.3 * 7.3 5.6 4.8 

**** *** 

* * ******* 

3«9**^ ?•! Sm9 V4.3 


IV-251 


335 

337 

339 

391 

393 

395 

397 

399 

351 

353 

355 

357 

359 


BUT AUGUST 29t 1975 

206 208 210 212 219 216 218 2 2 0 222 229 2 2 5 2 28 230 232 

»»♦ 

- 1 . 0 * 

*** 

- 1.0 - 1.0 *** 

*** ^ 

- 1.0 - 1.0 - 1.0 - 1.0 *•* 

**** 

- 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 ♦»* 


V **♦» 

- 1.0 — 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1 . 0 * - 1.0 **** 


* ***** 

- 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1 . 0 **** 


***** 

* ****** 


***-1.0 -l.O -1.0 -1.0 -1.0 * -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 -1.0 


- 1 . 0 ** - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1-0 - 1.0 *- 1.0 - 1.0 


♦ 


*■ 




- 1 . 0 ***- 1.0 - 1.0 - l . 0 ***- 1.0 - 1.0 - 1.0 - 1.0 * - 1.0 - 1.0 

* ***** * 

* ***** * 

* ***** * 

-1.0 -1.0 -1.0 -1.0 -1.0 -l.O -1.0** -1,0* -1.0 -1.0 

* ****** 

* * 

* * 

- 1.0 - 1.0 - 1.0 - 1.0 - 1,0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 


* 
♦*** 


*- 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 - 1.0 

- 1 . 0 ***- 1.0 - 1.0 - 1.0 *- 1.0 - 1.0 - 1.0 

•*v* 

* 

•*•* 


- 1 . 0 ***- 1.0 

*** 


*»* 

* ******* 

* ******* 

- 1.0 - 1.0 


EARTH SATELLITE CORF. 


361 
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335 

337 

339 

341 

343 

345 

347 

349 

351 

353 

355 

357 

359 

361 


RNET AUGUST 24, 1975 

206 208 210 212 214 216 218 220 222 224 226 228 230 232 

114» 

»=!■* ■ 

*** 

236 114 *** 

236 79 113 113 


♦♦♦♦ 

191 107 115 114 108 112 *** 

189 109 116 112 110 113 160* 162 **** 




« 

518 234 234 233 112 112 159 170 130 290 390**** 




236 236 409 407 113 * 159 171 471 445 434 254 *251 408 


236** 412 412 498 247 224 458 447 429 422 * 268 431 






511 *** 238 441 198^^4 460 439 430 441 =4* 378 435 

4c A 

* 

424 421 446 444 442 436 447^» 445^' 382 438 


*473 411 467 461 454 451 451 447 384 335 


* 

**»♦ 


**475 471 464 420 277 266 447 437 395 


* 

► *• * 

463 **» 4<276 266 265 • 445 396 229 

♦*** *** 

4t * 

Z^tZ*** 440 371 ^199 

*** 


EARTH SATELLITH CORP* 
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3i1 

339 

341 

343 

345 

* 

347 

349 

351 

353 

355 

357 

3S9 

361 


MAX TEMP AUGUST 24, 1975 

23b 208 210 212 214 216 218 220 222 224 226 228 230 232 


16.5 17.5 




FARTH SATELLITE CORP. 


15.7 16.5 17.6 15. 




15.8 16.5 15.0 14.5 13.5 12. 5*** 

* 

16.7 17.0 16.5 15.5 13.8 14.7 16.0 16.6 


17.6 18.0 17.5 16.5 15.1 15.3 16.1 18.0 18.8 24.2 26.7*** 


****i*’^ 2“^*° 25.6 28.6 27.0 *26-2 


19.7* 20.5 21.5 22.8 22.7 21.5 24.7 28.3 29. 




1 31-3 * 31.8 32.3 




22.5** 24.5 23-3 27.6*» 27.8 29.2 32.0 32.0 




♦ 32.5 33.1 

:jc 




32.3 32.5 


25.0 25.6 28,1 23.5 32.1 33.3 34.5^ 33.0 

* c * 

^»25.6 28.0 30.1 33.0 3h.6 35.0 35.0 32.7 31,6 31.7 


LO 

C\J 

I 




♦*29.8 30.2 31*8 34.3 36.8 35.1 33.7 31.3 31 3 


33.5***31.8 33.0 32.7 ♦ 32.0 31.2 31.2 


*** 


**** * 
31.6** 32.3 
**« 

*« 


******* 

31.6 *31.1 


RKPK( 

OEKa; 


MIN TEMP 


AUGUST 24, 1975 


EA^JH SATELLITE COftP 


206 20a 210 212 214 216 218 220 222 224 226 228 230 

333 9. C 

»*6 

**♦ 

33 7 8 . 5 1 0. 6 **6 


339 7.7 9.2 ll.O 10.3*** 


341 7,7 8.5 9.7 10.3 10.3 10.0»»* 

343 3.5 8.8 10. Z 10.3 10.7 11.1 11.5 U.5 

345 9.1 9.3 lO.l 10,3 10.5 11.3 11.5 12.0 12.1 15.5 16.7*** 




*** 10.2 10.5 11.2 11.5* 12.0 12.1 13.8 15.0 17.2 16.8 *16.5 

*** » 


349 


351 


11,5* 11.3 12.3 13.5 13.2 12.3 13.1 16.3 17.7 19.S » 19-3 


* **** 

* **** 




13.0** 14.0 13.7 15.7** 15.6 17.1 21.0 21.1* 20.1 


353 


355 


« 

»*«* 


14.3 15.0 16.5 16.7 18.7 20,2 22.0* 21.2 20.0 


• ***sp* 
* 


*14,6 16.5 ie.6 19.7 21.8 21.3 21.8 21.3 20.8 


357 


*•17.5 18.0 20.3 21.8 21.2 22.2 21.6 21.0 

*»*»* * 


359 


361 


20.O***22.5 22iS 23.2 * 23.1 21.3 


*** 


A 

23.2^# 23.2 

A4i 


22.7 


232 


;****♦ 

16.2 

17. E 

17.7 

19.3 

19.7 

20.7 

21.3 

* 

*21.5 
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5.3 YIELD Prediction 


5.3.1 PREDRUN 

5. 3. 1.1 Functional Description 

The yield model represents the integration of each of the data 
elements, basic and derived from each of the other functional elements. 
The yield element provides data which represents an end of year yield 
estimate aggregated at several levels: 

(1) Cells 

(2) Countries 

(3) Crop Reporting Districts 

(4) States 

5. 3. 1.2 Mathematical Description 

The yield, Y, in bushels per acre was given by: 

Y = -10.0556 + 0.56386 .YR 31.2954 . (S)^ 

where ^ is the average daily plant stress from planting to ripe and YR 
is the year (=75). 

The above equation was used to predict yields for each of the 12.5 
mile cells. County yields were calculated using the straight numerical 
average of the N cells assigned to the county: 


Yields at the crop reporting district level and state level were formed 
by weighted aggregations of the next smaller reporting unit: 


N 


CO 


^crd ~ s ^coi 
i=l 


co/crd) -j 


^crd 

^st “ ^crd^ ’ ^(crd/st)i 


where the R‘s represent the fraction of planted wheat acreage in the 
larger aggregate contained in each element of the smaller aggregate. 
These fractions represent the average of all available data beginning in 
197C-. (N^te that the R's are defined such that 


N 

E R,- = 1.0.) 
^ * 
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5, 3. 1.3 PREDRUN EXECUTION 


Job Control Language 


//PREDRUN JOB (BR9001 ,746) .ANDERSON. CLASS=F 
// EXEC FORTGCLG, FARM. F0RT= 'MAP, ID', REGION, 60=66K 

//* 

//* MODULE PREDRUN 

//* 

//FORT.SYSIN DD * 

- Fortran Source Deck - 


//LKED.SYSLIB DD 

// DD DSN=EARTHSAT.LOADLIB,DISP=SHR 

//G0.FT05F001 DD DDNAME=SYSIN 
//FT06F001 DD SYSOUT=A 

//FTlOFOOl DD SYS0UT=C,DCB=(RECFM+FBA,LRECL=133.BLKSIZE=1330) 
//FT29F001 DD DSN=ARCH2,DISP=(0LD,DELETE) 

//HISTORIC DD DSN=HIST.Gl,DISP=(OLD. KEEP. KEEP), 

// UNIT=2314,V0L=SER=IPIWRK 
//SYSUDUMP DD SYSOUT=A 
//SYSIN DD * 


- FT05F001 Data Deck - 


/* 

// 

Data Definition Description 

GO STEP 

FT05F001 : Map overlay, state, county vectors. 

FT06F001: Map I, J output. 

FTlOFOOl: Aggregate listings. 

FT29F001: Last day status from AGRUN. 

HISTORIC: Historical region specific characteristics. 
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5.3.1. 4 DATA DESCRIPTION 
FT05F001 DATACARDS 

1. SEQUENCE 

102 CARDS MAP OVERLAY CARDS 





CROP REPORTING YIELD WEIGHT CARD 
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MAP OVERLAY - DATA CARD 


FORMAT: (80A1/20A1) 

Note: Format requires two cards per line 


Variable 

Format 

Cols 

Description 

OVLY (I.J). 

80 A1 

1-80 

Output line masked with 
area boundaries 

OVLY (1+80, J) 

Card #2 
20 A1 

1-20 

Output line continued 


SAMPLE CARD: 



I ; 5 ( S S I I 3 10 II 12 n M IS 16 II I! U 2« 21 22 23 26 25 26 21 21 29 39 31 32 33 36 35 36 31 31 39 61 61 62 63 66 65 66 61 61 69 56 51 52 53 55 56 51 51 59 61 61 62 63 66 65 66 51 55 69 19 II 12 13 16 15 36 71 II 19 II 


] n 11 1 1 n 1 11 1 1 ! 1 n 1 1 1 n 1 n 1 11 11 1 1 n I n 11 m 1 n 1 1 1 1 11 1 II 1 1 1 11 11 1 1 n 1 1 n I n n 11 1 1 1 

2 2 2 2 2.11 Zii 21 2 Z 2 2 2.Z 2 2 2 2 Hi U2.222 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2 Z2.2 2 2 2 Z 2 2 2 2 2 2 2-2 2 2 2 2 2 2 2 2 2 2 Z 2 2 2 2 
• ‘335 ! : ’ !** ■ ! ! I ! ! n I M II i ! I 

33? 


no 

1 , ] 4 s E j 1 j IJ II i; 13 n IS IS II l) |j ;o J) 13 !3 36 35 II 31 36 39 30 31 33 31 36 35 36 31 31 39 60 61 63 63 66 65 66 61 61 69 50 51 53 53 56 55 56 jl 51 59 ID 61 13 63 01 65 66 61 65 69 10 II 13 13 II 15 16 II II IJ II 

1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 11 1 1 1 M 1 1 1 1 1 1 1 1 1 1 1 11 1 11 1 1 1 1 1 1 1 

22222222222222222222222222222222222222222222222222222222222222222222222222222222 
3 '• 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 n 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
44444444 ;;44444444444444444444444444 4 44444444444444444444444444444444444444444M 
555 5555555555555555555555555555555555555555555555555555555555555555555555555555 

6 6 8 B 6 G 6 B 6 6 6 fi e B 8 6 6 6 6 6 B 6 6 6 6 6 6 6 6 8 B 6 6 8 6 6 6 6 B 6 6 6 6 6 6 6 6 6 6 e 6 6 B fi B C 6 6 6 6 6 6 B G G C 6 6 6 6 fi 6 6 6 6 6 6 fi 6 6 

7 7 7 I 7 7 7 7 7 J 7 7 7 7 7 7 7 2 7 7 7 7 7 7 7 1 7 7 7 7 7 7 T 7 7 n 7 7 7 7 7 7 7 7 7 7 7 ■/ n 7 7 7 7 7 ?/ 7 n 7 7 n n m n I n n 7 7 ] 



893993999999989 S99999S999999999999999 99999999999S99259 8 999 9999999I19S 9 99999959999 
I ) I (, 5 I I s 18 I Ml 11 16 15 16 II II 15 10 31 II 33 11 35 16 31 31 35 30 11 13 31 36 35 15 31 31 3J 6f <1 63 63 66 65 66 61 61 69 50 51 5! j3 56 55 56 51 SI 59 60 61 62 61 66 65 06 61 69 63 13 II 13 13 16 h 10 II 19 H 10 



COUNTY WEIGHT DATA CARD 


FORMAT: ( 16 F 5 . 4 ) 

COFR ( 1 , 1 ) F 5.4 County weight coefficients 

for county #I in state, #J 

COFR (I,J) F 5.4 (16 per card) 

Blank when no county 


SAMPLE CARD: 

■ Q 0 0 ij 0 0 Q089 0 C'4'89 0 0 1' 08 0 0 004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0S338 0 0450 0 0750 03784 0 0503 0 1'243 

00 000 0 B 00 0000 000 ODO 0000 000 0000 

I : 4 i i M 9 10 II n 13 M » IS II It IS 30 31 33 33 3t 3S 3E 33 30 33 39 31 33 33 31 35 35 31 30 39 49 41 43 43 44 45 4 0 41 40 49 59 51 53 53 54 55 50 53 5 3 59 00 01 03 03 04 05 (( O’ 00 09 39 II 13 13 )4 >5 30 II IS 19 99 

II ] 1 1 11 M II 1 i I 1 11 II M 1 n 1 1 11 11 11 n 1 1 11 1 ] 11 n n 1 1 1 1 n 1 1 1 1 1 1 1 11 1 1 ! 1 1 1 1 1 11 1 1 1 r in 

222222222222222222222222222222222222222222222222222 22222222222222 2222222222 22 
3333333333333333333333330333333333333333333333333333 33333333333333333333 3333 

444444444444 44444444444 44444444444444444444444444444444 44444444444 44444444 4 
5555555555555555555555555555555555555555555555555555555555 5555 55555555 5555555 

66600000066600606606606 60 6 6 6 6 6 6 6 6 0 6 6 0 6 0 6 6 6 6 6 8 0 6 6 G 6 6 6 6 6 6 6 6 6 0066 68606606 666066 
7 7 7 7 7 7 n n I 7 7 n T 7 7 7 7 7 T 7 7 1 7 7 7 ] 7 7 7 7 7 7 7 7 7 7 n 7 ■/ 7 7 7 1 7 7 7 7 7 7 7 7 7 7 7 n 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 
88880838 3888 88888 6888888808888088888888888880388888 8888888088888 88888668868 
939399983 9999 99999993999909999999999999999939099999999999999399339999999999999 

■ t -■ ^ 5 5 » 8 9 ID T’ !2 13 14 IS IS I? IS 13 20 II II 73 H 25 25 II 23 73 10 31 37 33 34 35 16 1? 36 33 <0 41 4? 43 41 45 45 4/ 4S 43 50 51 52 £3 54 55 56 5J 5fi 59 ii 51 h? 63 64 65 K 61 6S 65 IS U ’? :i M 'j 16 7? 15 ,5 ti 

PSYOR 5081 
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CROP REPORTING DISTRICT WEIGHT DATA CARD 
FORMAT: (9F5.4) 


Variable Format Cols 

RDFROJ) F5.4 1-5 


Description 

Crop Reporting District 
Weights for Reporting 
District I in State J 


RDFR(I,J) F5.4 1-45 


SAMPLE CARD: 


Q 0 C'55 0 0 0 u 0 C'£897 0 0239 0 0 0 0 0 0 0 097 0 0 1 4 0 0 0 0 0 0 


1 1 1 H 1 1 1 m m I m m n m 1 1 1 III 1 1 1 1 1 1 1 1 1 1 

222222222222222 22222 222222222222222222222222222222222222222222222222222222222 
33333333333333333333333.33333333333333333333333333333333333333333333333333333333 
4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 M 4 4 4 4 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 444 4 4 4 4 4 4 4 4 4 4 44M 4 

55 55555 5555555555555555555555555555555555555555555555555555555555555555555555 

6 6S«'S6'i6G 6 6 6 5 6 6 6 6 BB6B 6 6 6 B6SG 6 6 6 6 6 G 6 6 6 6 6 6 G 6 6 6 6fi6fi6B6B6B6fi6 6 6 6 B6G6Gfi6 6 6 li6fiC66CGB 

177 777171777777777 77777777777777 777777777777777777777777777777777777777777777 


'■RWR 3081 « 35 -'7 J( J) ,'l) <7 17 43 44 4i 4E 47 41 49 ij 51 5? 53 54 55 SS 57 5« 51 (O (I (7 13 14 55 16 17 It 1 ) m || 73 n „ ,3 ,s „ ,, „ 
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STATE NAMES DATA CARD 


FORMAT: (10A8) 


Variable 

Format 

Cols 

Description 

STNAME(1,1) 

A8 

1-8 


STNAME(2,1) 

A8 

9-16 


STNAME(1,N) 

STNAME(2,N) 

8A8 

17-80 

First half nth state name 
Second half nth state name 


SAMPLE CARD: 


•MDNTtSHfi ‘ I ' .'SOUTH 


’NORTH 'I'i3HOT)3 


'MINNESOTta 


0 0 0 0 0 0 0 0 0 0 1) 0 0 0 0 0 0 0 0 0 DOflOOO 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

, 2 3 , 1 t 1 8 s 10 II IJ Ij U li It II II la :0 3 1 33 33 33 33 3 6 33 3« 39 31 II 33 « 31 33 36 H 31 33 31 61 <3 43 44 « 41 43 41 45 SI 51 S3 S3 54 55 51 51 5! 51 tl SI 13 13 61 63 tt (3 11 19 31 II 13 13 14 15 ID II II 39 II 

1 1 1 1 1 1 1 1 1 I I n 1 11111111)1) 111 11111111111 111 11111111)111111 1111111111111111 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 Z 2 Z 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

333333333333 3333333333 33333333333333 333333 333333333333333 33333333333333333 

4444444U 444444444444 444 444444444444444 444444444444 444444444444444444444444 

5 5 5 5 5 5 5 5 S 5 5 5 5 555555555505555555555 55555555555555555555 55555555555555555555 

6600650566 6G6666G666 6666666 6666666 6606666 666666666666660 666660666666666666 

n I T 7 7 7 n n n n 7 7 7 n 7 7 7 7 7 1 7 7 7 7 IT 7 n 7 7 7 n n I 7 7 1 7 7 7 7 7 7 7 7 7 7 7 7 m 7 2 I 7 7 7 7 7 n n n 7 7 7 ] 7 
88>'6S8888888B88BS88GB883 888888888888888 B088886B888868888888B0888830B88888888B8 

50493930899099899999983989039893009999 39399939999999899 99999093933999999999999 

^ ‘ ^ ^ - J ,j| Jt IJ 13 t) U lt> IMSI3 35 16 71 7S 73 JO- 31 37 33 34 3S 35 3? 33 J3 3£ II « 43 44 45 46 47 48 43 5tt 5i 57 H 54 55 56 57 SB 53 h2 El Et 63 t*- Eii EE 6* 58 li IM' -i !3 76 Jf >8 '3 65 
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COUNTY NAMES DATA CARD 


FORMAT: (10A8) 


Variable 


Format Cols 


Description 


C0NAME(1,1,1) A8 1-8 

C0NAME(2,1,1) A8 9-16 


1st half county name 
17-64 for county I State J 

2nd half county name 
for County I State J 

SAMPLE CARD: 


CONAME (1, I, J) 8A8 

C0NAME(1,I.J) 


euaQIER • TOOLE LIBERTY 'HILL F-TJf-IEERe 

g 0 0 0 0 0 0 0 0 0 0 0 fi 0 0 0 o o g o o o n o o o o o o o o d o o o o o o o o o o o o o o o o d o o o o o o o o o g o o o o o o o o o o o o o o o o d o 

,) 3 4 5 t J I 9 11 II 12 ij 14 IS 15 II II 19 70 71 77 73 71 7S 70 77 71 79 30 31 37 33 31 33 35 37 3S 39 40 41 47 41 14 4S 40 41 40 49 50 51 57 53 54 55 55 SI 51 59,60 01 07 51 54 55 01 61 61 59 10 II 17 II 14 15 76 II II IS 10 

It 1 I 1 1 11 1 1 n 11 n 1 1 1 11 1 1 n 1 11 11 1 11 1 1 1 m 1 1t 1 n n 1 1 11 1 m n 1 m 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 
2222222222222222222222222222222222 222222222222222222222222222222222222222222222 
3 3 333333333333 33 333333333333 3333 333333333333 3333333333333333333333333333 

4444444444444444444444444444444444444444444444444444444444444444444 444444444444 
S3S55 5 5 5 5 3 5 5 S 5 5 5 5 3 3 35335335553333 5 5 5 5 3 3 3 5 5 3 3 3 5 3 3 3 3 3 3 3 5 5 3 5 3 3 3 5 5 5 3 33333333553 

6 6 S 6 6 6 6 6 6 C 6 6 G 6 8 fi 8 6 6 8 6 6 6 B 6 6 6 6 6 6 6 6 6 8 8 G G 8 6 8 fi G G G 6 G 6 6 6 6 6 8 6 G 6 6 8 6 8 6 8 G B 6 G 6 6 8 G 6 8 G 6 8 G G B 

7 7 7 7 7 1 17 n I 7 7 7 7 7 7 7 7 7 7 7 n n I 7 7 7 J 7 7 in 7 7 7 7 7 n 7 7 n 7 7 1 n 7 n J 7 n 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 

8 8 8 8 S B 8 S B 8 8 G 8 8 8 3 8 8 8 8 8 8 8 8 8 8 8 8 fi 8 B 8 8 8 8 8 8 8 8 8 8 8 8 G 8 B B 8 8 8 8 8 8 8 8 8 8 8 8 6 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 

9999 8 9399999999999993999999999999 999999958899 9993999999399939899 9999899399 

( ' : 4 j G r i 9 laiM? U U 1( U tl U lO It !I n U 2S 28 n 21 2! 18 31 32 13 IV 3i 3E 3) 31 J3 « 41 42 43 44 45 45 41 4! 43 5C 51 52 53 54 55 56 51 58 53 Bd Gl 62 E3 64 G5 BE E) it (9 lO 21 23 21 ii (6 U I£ ?3 BO 

PRYOR 5061 


REPROBUCBm 


f OP THE 





CROP REPORTING DISTRICT DATA CARD 


FORMAT: (10A8/8A8) 

Note: two cards per use of Forniat Statement 


Variable 

Format 

Cols 

Descrition 

RDNAME(1,1,1) 

A8 

1-8 


RONAME(2,l,l) 

A8 

9-16 



A8 

17-80 

1st half county name for 

• 

Card 2 

Reporting District I 

RDNAME(1 ,1,J) 

A8 

1-64 

State J 2nd half of name 

RDNAME(2,I,J) 

A8 


for reporting district I 
State J ■ 

SAMPLE CARD: 

MGRTHUEST 

NORTH CENTRfe^L 

HDRTHEaST 

WEST CENTRAL i 


0 0 0 0 0 0 0 0 0 0 0 fl 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

1 - . , j 5 2 E S '0 II 1 ! n H IS It nil is il ll n j) S< K it !1 H !S 3 S 31 3 ! 33 31 35 35 3 ) 3 J 33 « <1 « « « « « l> » » 51 53 53 51 55 55 51 51 51 60 61 53 63 M 5 ' 5S 61 .3 63 13 it I’ 13 II 15 7 « 13 it h n, 

I i i 1 1 1 n I m 1 1 1 n n I n n n 1 1 1 i n 1 1 n i n n n m n n n 1 1 n 1 1 1 1 n i ii 1 1 1 1 ii 1 1 n i 
22222222222 2222222222222222222222222222222 22222222 222222222222222222222222122 
3333333 3333 33333333 33 33 33 33333333 3333 33333333 3 33 33 3333333 33 33 3333 

444444 4 4i)4 4 444444't')4 4 444444444444 4 44 441H4444444 4 44 4M44 44'144444<<‘t444444444't444 

5555 555555555555 555555 555555555 5555 555555555 5555 555555555555 55555555 

66606 560 666666666 66666066666606666 616666666666 66666666066606666606666660606 
7 ? 7 7 7 7 7 n n ] 7 7 7 7 7 7 7 ] I 7 7 7 7 n 7 7 7 7 ] 7 7 7 ? 7 7 7 7 7 n 7 7 7 7 n 7 7 7 ] ] 7 7 7 7 7 7 7 ] 7 ? ? ? 7 7 ] ] 7 7 7 7 7 3 3 ? I I 

88886888 8888888888880 88888888888888888 888888888888808388868888888888888688888 

3 Q d g 9 Q 9 9 8 8 9 9 9 9 9 9 9 8 8 9 9 9 3 9 9 9 9 9 9 3 9 3 9 9 8 9 9 9 9 9 3 9 8 3 9 9 9 9 9 9 9 9 3 9 9 9 8 9 9 9 9 3 8 9 9 9 9 9 9 9 9 9 9 0 

1 ■ , ^ s j s it I. II Tjn IS It iMH ii;an nail !i;c!i Ji 2SM jnnsinsjt lunsio II « nil (5 lEinu: soil jrsruii wo ts 6- wtiM r.%tui tf ti/s f n i « 
PRVCW 
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PREDRUN 
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PREDRUN 















PREDRUN 
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m t > f 


SUBROUTINE MAPOUT 
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SUBROUTINE CHRFIX 
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5. 3. 1.6 SOURCE CODE 


RFAL^fl AMON(f)/» APRIL't* MAY',» JUNE**' JULY*, 0 

* » AUGUST*,* SEPT.*/ 0 

REAL«B STNAMF(?*4) ,COMAME<?*ROf A) ,R0NAME(2.9,4) *BLANK/* •/ 

REAL SM(3) *FT(T> *STRINT(5) *COFR(80*3) *RDFR(9*4) *LAT*LON 
REAL YLOCO(flO*4) /3?0*0./,YLDRO(9*4) /3f>*0./ 

RFAL SUMY n0r4) /4 0*0./*SUMYY ( 1 0 * 4 ) /4 0^*0 . / * NCLCRD (1 0 , 4 ) /40*^0 . / 
integer NDAYS(G) /90» 1?0* 151 , 1R1 *21?,243/ 

INTEGER JCO (10*3) / 0*10* 19 *27, 37 *4? *49, 56* 0*0*0*6*14 *2?* 28,37,47* 
f 5?*58,67* 0*6* 11 * 18*23,29,34*41 *46*53/ 

INTEGER MUMCO (80,4) /3?0^*0/*NUMRD4 (9) /‘9-t^O/ 

INTFGER*2 OVLY (101,56) ,NDAY (5) * CRPD A Y , TSO I L * P AD , I COA Y 
INTEGER*2 I MAP (14*14) * STATE * COUNTY , CPO * SOIL * PLNDAT , TSTS I T 
COMMON/ARCHTV/I ,J.K* JUL*BMT,SM, ET,ETP,ETPAVE *PREC IP, STRESS* 

S tmax,tmin,cpnoff,strint*nday*crpday*tsoil*rad 

COMMON/HIST/II *JJ,KK *L AT* LON* YLDTND*YLDADF, STATE* COUNTY* CRD, SOIL, 

% PLMDAT*TSTSTT 

common/map/ovly 

TPJ=0 
NL = 1 

JULD=-999 
PFAO(5*100n) OVLY 
mon FORMAT (80A1/21A1 ) 

RFAO(5*1001) COFR 
moi FORMAT ( 16F5. 4) 

PFAn(5,1002) ROFR 
100? format (9F5. 4) 

READ (5, 1003) STNAME 
RFAO(5*1003) CONAME 
PFAD(5*1004) RDNAME 

1003 FORMAT(IOAR) 

1004 FORMAT ( 10AB/8A8) 

CALL OPFNAG 
call HSTOPMdf) 
no 10 L=l,14 

DO 10 M=1,]4 
IMAP (L ,M) =-9999 
10 CONTTNUF 

DO QO TJK=1,30?4 
CALL AGREAD(I) 
call HSTRD(TJK) 

TF(T.LT.l) GO TO 90 

AVST=0. 

icnAY=o 

no ?o is=i*5 

AVST=AVST+STRTMT (IS) 

ICDAY=ICDAY+NOAY (IS) 

20 CONTINUE 
YLD=0. 

IF{CRP0AY) 30,30,25 
aVST=AVST/ICDAY 

YLn=-10.0556*-0,56 3R6<*75.-31.2954*AVST*^*2 
IF(YLO.,LT.O. ) YLO = 0. 
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30 YLDCO ( COUNTY* ST ATF) =YLDCO ( COUNTY* ST ATF) +YLD 

NUMCO (COUNTY *STATF ) =NUMCO (COUNTY * ST ATF) +1 
SUMY (CRD * STATE ) =SUMY (CRO * STATF ) +YLD 
SUMY( 10*STATE)=SUMY( 1 0 * STATE ) +YLD 
SUMY Y (CRD* STATE ) =SUMYY (CRD*STATE) +YLD*YLD 
SUMYY( 10*STATE)=SUMYY( 1 0 *STATE) +YLD*YLD 
IF (YLD.NE.O. ) NCLCRD(CRD*STATE) =NCLCRD(CRD*STATE) +1. 

IF ( YLD.NE.O. ) NCLCPD( 1 0 * STATE ) =NCLCRD ( 10*STATE)+1. 

IF(STATE.NE.A) GO TO 40 
YLDRD (CRD*4) =YLDRn (CRD*4) +YLD 
NUMRD4 (CRD) =NUMRD4 (CRO) +1 
40 CONTINUE 

IF ( JUL.EQ. JULD) GO TO 70 
JULD=JUL 
DO 50 IMsl*f 
MOAY=JULD-NDAYS(IM) 

IF(MDAY) 60*60*50 
50 CONTINUE 
IM-IM+1 
60 CONTINUE 
IM=IM-1 

MDAY=JULD”MDAYS (TM) 

70 IF(NL.EO.l) WRITE(10*1070) AMON ( I M ) , MDA Y 

1070 FORMAT ( IHl *52X» »FARTH SATELLITE CORP .» /50X ** ESTIMATED CELL YIELD ( 

SeU/A) »/48X* ♦PROJECTED FROM* *Afi* 13, • * 1975 • //32X , * I J K YIE 

SLD* *13X* 'STATE CROP REP. DIST. COUNTY'/) 

WRITE (10*1071) I * J*K* YLD* (STNAME (M* ST ATE) ,M=1*?) * 

S (RDNAME (M,CRD*STATE) *M=1*2) * (CONAME ( M , COUNTY , STATE ) *M=1*2) 

1071 format {29X, 215* I3*4X*F5.2*3(2X*2A0) ) 

NL=NL+1 

IF(NL.GE.Sl) NL=1 

IF (I + J.EO.TJP) GO TO 80 

L=MnD(I*2) 

IF(L.EQ.l) GO TO 90 
L=MOD ( J,2) 

IF(L.NE.l) GO TO 90 

11=1-205 

Jl=J-334 

Il=( (Il-l)/2) +1 

Jl=( (Jl-D/2) +1 

IMAP(I1*J1)=YLD»100. 

IJP=I+J 
80 CONTINUE 
90 CONTINUE 

call HSTCLS 
DO 100 IS=1,4 
NL-1 

no 100 ic=i *80 

IF(CONAME(l*IC*IS) .EO, BLANK) GO TO 100 
COYLD=YLDCO ( IG* IS) /NUMCO ( IC* IS) 

YLDCO (IC*IS) =COYLD 
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IF(NL.EQ.l) WRITF(in»1090) AMQN ( IM) ,MDAY, (STNAMF (M» IS) »M=1 *?) 

1090 format (IH l ,S6X, »FARTH SATELLITE CORP . ♦ /53> ♦ ♦ EST I MATEO COUNTY YIELD 
« (RU/A) »/5?y. 'PROJECTED FROM* ,A8, 13, • , 1 975 » //5 1 X , ?A8 , ♦ COUNTIES' 
*//57X, 'COUNTY' ,nX, 'YIELD'/) 

WRITE ( 10, 1091 ) (CONAME (M, IC, IS) ,M=1 ,2) ,COYLD 

1091 F0RMAT(57X,?A8,F6.2) 

NL=NL+1 

IF(ML.GE.51) ML=1 
ion CONTINUE 

WRITE(10,1100) AMON ( IM) ,MDAY 

1100 FORMATdHl, SOX, 'EARTH SATELLITE CORP. ' /61X, 'ESTIMATED YIELD (BLi/A) 
S'/55X, 'STATES K CROP REPORTING D I STR ICTS ' /56X , ' PRO JECTED ER0M«,a 8, 
<*I3,', 1975'//51X, 'STATE CROP REP. DIST, YIELD STD, DEV.') 
DO no IS=1.3 
IDF = 9 

IF(IS.EO.l) IDP=7 
DO no 10=1, IDE 
IC1=JC0 (ID, IS) +1 
IC2=JC0(I0+1 , IS) 

DO no ic=ici,ic? 

IF(CONAME'(l ,IC, IS) .EQ. BLANK) GO TO liO 
YLDRD { ID, IS) =YLDRD ( ID, IS) +YLDCO (IC, IS) '^COEP ( IC, IS) 
no CONTINUE 

DO 120 ID=1,9 

IE(RDNAME(1,ID,4) .EO.BLANK) go to 120 
YLDRD ( 10,4) =YL0PD( ID,4) /NUMRD4 (ID) 
l?n CONTINUE 

DO 140 IS=1,4 
STYLD=0. 

IDF = 9 

IFdS.EO.l) TDF = 7 
DO 130 ID=1 , IDF 

STYLD = STYLD + YLnPD ( ID, IS) <:-RDFR (ID, IS) 

130 CONTINUE 

SDSTYL= (NCLCRD (10, IS) *SUMYY ( 1 0 , I S ) -SUMY ( 1 0 , I S ) *^? ) /NCLCRD ( 1 0 , I S ) 
SDSTYL=SQRT (SDSTYL ) 

WRITE ( 10, 1130) (5TNAME(M,IS) ,M=1,2) ,STYLD,SDSTYL 

1130 format ( 1H0/40X,2AP,?2X,F6.2,5X,F6.3/) 

DO 140 TD=1 ,IDF 

IF (RDNAME(1,ID,IS) .EO.BLAMK) GO TO 140 
*•»•? 

SDRDYL = SOPT (SDRDYI, ) 

WPITE(10,n31) (RDMAME (M, ID, IS) ,M=1 ,?) , YLDPD (ID, IS) ,SDRDYL 

1131 E0RMAT(59X,2AR,3X,E6.?,5X,F6.3) 

140 CONTINUE 

call MAPOUT (AMON ( IM) ,MDAY, IMAP) 

STOP 

END 
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SUBROUT INF MAPOUT ( AMON*MDAY « IVAL ) 

lN?EGE4nVLy(10l,-.6,aVAL(14,14,.Lm:(10n 

COMMON /MAP/ OVLY 

WPITE(IO.IOOO) mop ./.iJX.iESTIMATEO CELL VIELD ( 

1000 FORMATdHl.GAX, 'EARTH SATELLITE CORP. . t. i ■ 


*BU/A) */50X» »PROJFCTED FROM* *A8* 
flO 212 214 216 21B 

S 230 232*/) 

DO 80 I=l»14 
DO 80 J=l* ^ 


13 


1975*//* 
220 222 


206 


208 


2 


224 


226 


228 


L=(I-1)»4+J 
DO 30 K^l.lOl 
30 LINE(K)=OVLY(K,L) 

GO TO (70*40»70»70) f J 
40 DO 60 K=ltl4 


KC1=(K-1)*7+6 
jVAL=IVAL (K,I) 

IF ( JVALa.LT*-9900) GO TO 60 
DO SO KK=1»3 

LVAL (KK) =JVAL/10** (4-KK) 

50 JVAL=JVAL-LVAL (KK) *10** (4-KK) 
LVAL(4)=JVAL 

CALL CHRFIX (KC1»LINF.LVAL) 


60 CONTINUE 

70 WRITE ( 10*2000) LINE 
2000 FORMAT(IOIAI) 

80 CONTINUE 
RETURN 
END 
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SURROUTINE CHPFIX (K1 »LTME»L) 

INTEGER*? LINE (101) ♦L(‘S) f NUM ( 1 0 ) / » 0 • ♦ 

* IMIN/»-'/»IDEC/».*/ 

LN = 0 
LM = 0 
IC=K1 

DO 40 1=1*4 
IF(I.E0.2) LN=1 
IF(I.GE.3) GO TO 10 

IF(LN,EO.O.AMO.L(T + 1) .LT.O) LINE (. IC) =IMIN 
10 IF(L(I) .EO.O.AND.LN.NE.O) L I NE (I C ) =NUM ( 1 ) 

IF(L(I).LT.O) LM=1 
IF(L (I) •EO.O) GO TO 20 
LN = 1 
LL=L(I) 

LTNE(IC)=NUM(IABS(LL )+1) 

GO TO 30 

20 IF{LN.EQ.0.AMn,I.FQ.l.AND,L(2) .EQ. 0. AMD.L (4) .LT.O) L INE ( I C ) =I M I N 
30 IC=IC+1 

IF(I.NE.2) GO TO 40 
LINE ( IC) =IDFC 
IC=TC+1 

40 continue 

50 RETURN 
END 


5.3.1.7 PREDRUN SAMPLE OUTPUT 


EARTH SATELLITE CORP. 

FSTIMATED CELL VltLfi IBU/M 
PRUJECTEO PROP AUGUST 30, 1975 

206 208 210 212 214 216 218 220 222 224 226 228 230 232 

335 23.19 

««• 

«•* 

337 22.92 23.84 »** 

339 24.08 23.82 21.24 23 . 49 ^»* 


341 25-73 24.24 24.36 24.78 21.37 22.44**» 

343 Z5.4A 26.26 24.83 22.89 22.41 22.13 22-23 25.02 


345 25-70 23.08 23.26 21-09 22.54 22.50 25.10 26.62 24.12 28.15 28 . 


in: 


347 

««^26.08 23.00 20.81 21.48 

22.29=!= 

21.93 

24. 93 

23.66 

25.76 

26.34 

26.55 

30.03 

28.83 



* 











♦ 







# 




= 1 = 







* 


349 

24.064^ 22.42 23-01 

21.35 

25.16 

29. 19 

25.67 

27.38 

28.01 

27.40 

*29.97 

29.23 



♦ *** » 

















Xt 




* 








351 

Z4.05*’('24.a7 

22.67 

24.36*=>2o.57 

28.90 

28.37 

2B.11<^ 

28.34 

29.31 













♦ 
















* 



353 

23.65 

23.36 

23.00 

23.83 

25.90 

26.98 

27.01* 

27.34 

30.12 

29-03 













♦ 







« 














355 

22.45 

23.34 

23.61 

24.26 

25.96 

26. 52 

25.16 

28.95 

29.98 

29.57 


« 







♦ 











♦ 











4: 



357 


*24.38 

24.53 

25.15 

25.35 

24. 10 

26.47 

27.24 

28.43 

28.36 






























* 



359 




20.16*=<=25.66 

25.72 

26. 04 

*2tt.l7 

20.45 

28.69 
















* 











=«■=»♦* 

* 



361 






25.52**25.07 


28.22 

28.33 
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,:Arn;i b^TuLLl^'': 

ESTIViATEU COUNTY YIELD (BU/A) 
PRCiJECTED FROM AUGUST 30, 1973 

NORTH DAKOTA COUNTIES 


COUNTY 

YIEU^ 

DI VIDE 

25.21 

BURKE 

23.43 

RENVILLE 

24.96 

WILLIAMS 

23.3 0 

MOUNTRAIL 

25. 1^ 

WARD 

24.6 4 

BOTTINEAU 

27.60 

^JOLETTF 

27. 23 

MC HENRY 

27.37 

PIERCE 

27.19 

BENSON 

25.65 

TOWNER 

27.47 

CAVAL lER 

27, 86 

PEMBINA 

27.21 

RAMSEY 

27.22 

WALSH 

26.75 

NELSON 

27.83 

GRAND FORKS 

26.06 

MC KENZIE 

2 5. 78 

DUNM 

26.11 

MC LEAN 

24.04 

MERCER 

25.39 

OLIVER 

25.77 

SHERIDAN 

26.5 3 

WELLS 

26.27 

CODY 

26.77 

FOSTER 

26.32 

K I DOER 

27.07 

STUTSMAN 

27.13 

GRIGGS 

27.96 

SfEELE . 

27. 45 

rOAILI. 

27.61 

BAKNEi 

28.17 

CASS 

28.24 

GOLDEN VALLEY 

25.64 

BILLINGS 

24.97 

STARK 

25.24 

SLOPE 

2 5.72 

HuTTiNGEP 

2 5.57 

3QV%'MAN 

24.52 

ADAMS 

25.27 

M'OLTOM 

27.03 

BURLEIGH 

25.58 

G ^ ANT 

2 7.57 

SiOUX 

2 5. 9b 

EMHOMS 

27.14 

LOGAN 

28.25 

LA MOURE 

2 8.07 

RANStjM 

23 . 53 

MC IN TOSH 

27.49 
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;:AKTi-i SAfcLLiri; COkP. 
PSTIMmTEO cell yield (BU/A) 

PROJECTED r-?CM AUGUST 30, 1975 


I 

J 

K 

Yi ELO 


STATE 

CROP REP. DIST. 

COUNTY 

222 

3 59 

4 

2 5.66 

SOUTH 

DAKOTA 

SOUTHEAST 

CHARLES MIX 

223 

344 

1 

26.94 

MORi'H 

DAKOTA 

NORTH CENTRAL 

BOTTINEAU 

223 

344 

2 

2 6. 94 

NORTH 

DAKOTA 

NORTH CENTRAL 

BOTTINEAU 

223 

3 45 

1 

2G.09 

NORTH 

DAKOTA 

NORTH CENTRAL 

MC HENRY 

223 

345 

2 

25.74 

NORTH 

DAKOTA 

NORTHWEST 

RENVILLE 

223 

3 45 

3 

26. 12 

NORTH 

DAKOTA 

NORTH CENTRAL 

BOTTINEAU 

223 

3 45 

4 

28.225 

NORTH 

DAKOTA 

NORTH CENTRAL 

SOTTI NEAU 

223 

346 

1. 

26.2 5 

NORTH 

DAKOTA 

NORTH CENTRAL 

MC HENRY 

223 

346 

2 

26.26 

NORTH 

DAKOTA 

NORTH CENTRAL 

MC HENRY 

223 

346 

3 

25.81 

NORTH 

DAKOTA 

NORTHWEST 

WARD 

223 

34o 

4 

2 3.26 

NORTH 

DAKOTA 

NORTH CENTRAL 

MC HENRY 

223 

347 

1 

26.0 6 

NORTH 

DAKOTA 

CENTRAL 

SHERIDAN 

223 

347 

2 

24.92 

NORTH 

DAKOTA 

WEST central 

MC LEAN 

223 

347 

3 

2 5.99 

NORTH 

DAKOTA 

NORTH CENTRAL 

MC HENRY 

223 

3+7 

4 

25.95 

NORTH 

DAKOTA 

NORTH CENTRAL 

MC HENRY 

223 

34b 

1 

2 7.62 

NORTH 

DAKOTA 

CENTRAL 

SHERIDAN 

223 

348 

2 

26.25 

NORTH 

DAKOTA 

SOUTH central 

BURLEIGH 

223 

348 

3 

27.73 

NORTH 

DAKOTA 

CENTRAL 

SHERIDAN 

22 3 

343 

4 

25.98 

NORTH 

DAKOTA 

CENTRAL 

SHERIDAN 

223 

349 

1 

2 4.53 

NORTH 

DAKOTA 

SOUTH CENTRAL 

BURLEIGH 

223 

349 

2 

24.5 9 

NORTH 

DAKOTA 

SOUTH CENTRAL 

BURLEIGH 

223 

349 

a 

24.58 

NORTH 

DAKOTA 

SOUTH CENTRAL 

BURLEIGH 

'! 2 3 

349 

4 

24.09 

NORTH 

Dakota 

SOUTH CENTRAL 

BUR.LEIGH 

223 

350 

1 

25. 79 

NORTH 

DAKOTA 

•SOUTHEAST 

LOGAN 

223 

3 50 

2 

26. 04 

NORTH 

DAKOTA 

SOUTH CENTRAL 

EMMONS 

223 

3 50 

3 

25.04 

NORTH 

DAKOTA 

SOUTH C‘=NTRAI. 

BURLEIGH 

223 

3 50 

4 

2 5. 54 

NORTH 

DAKOTA 

CENTRAL 

KIDDER 

223 

351 

i 

26.39 

NORTH 

DAKOTA 

SOUTHEAST 

MC IMTOSH 

2 23 

351 

2 

25.54 

NORTH 

DAKOTA 

SOUTH central 

EMMONS 

223 

351 

3 

26. 56 

NORTH 

DAKOTA 

SOUTH CENTRAL 

EMMONS 

223 

351 

4 

28.05 

NORTH 

DAKOTA 

SOUTHEAST 

LOGAN 

223 

352 

1 

26.66 

SOUTH 

DiKC^A 

NGRTI-t CENTRAL 

KiC PHERSON 

223 

3 52 

2 

26. 56 

SOUTH 

DAKOTA 

NORTH central 

CAMPBELL 

223 

352 

3 

26.92 

NORTH 

DAKOTA 

SOUTHEAST 

MC INTOSH 

223 

352 

4 

26.92 

NORTH 

DAKOTA 

SOUTHEAST 

MC INTOSH 

223 

3 53 

1 

26. 75 

SOUTH 

DAKOTA 

NORTH CENTRAL 

EDMUNDS 

223 

353 

2 

26.75 

SOUTH 

DAKOTA 

NORTH CENTRAL 

EDMUNDS 

223 

353 

3 

26. 88 

SOUTH 

DAKOTA 

NORTH CENTRAL 

MC -PHERSON 

2 23 

3 53 

4 

26.09 

SOUTH 

DAKOTA 

i'JO R i H C c N 1 RA L 

MC PHERSON 

223 

3 54 

1 

25-69 

SOUTH 

DAKOTA 

NORTH CENTRAL 

FAULK 

223 

3 54 

2 

2 6.69 

SOUTH 

DAKOTA 

NORTH CENTRAL 

FAULK 

223 

354 

3 

26.69 

SOUTH 

DAKOTA 

NORTH CENTRAL 

EDMUNDS 

2 23 

354 

4 

2 5.69 

SOUTH 

DAKOTA 

NORTH central 

EDMUNDS 

223 

3 55 

1 

25-50 

SOUTH 

DAKOTA 

CENTRAL 

HAND 

223 

3 55 

,y 

25.5 0 

SOUTH 

DAKOTA 

CENTRAL 

HAND 

223 

355 

3 

2 7. 00 

SOUTH 

DAKOTA 

NORTH central 

FAULK 

•-> '' 
^ 

355 

4 

27.00 

SOUTH 

DAKOTA 

nORTH CENTRAL 

FAULK 

223 

3 5 u 

1 

2 5.41 

SOUTH 

DAKOTA 

CENTRAL 

HAND 

2 23 

3 56 


25.41 

SOUTH 

DAKOTA 

CENTRAL 

HAND 

223 

3 5o 

3 

25.41 

,SOUTH 

DAKOTA 

CENTRAL 

• HAND 
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iTY OF THH 
Tg, fOOR 



•rj* 


tf.KiH ;jAr.iLLn:, 

ESTIM^»TF;D YlrLD (bU/A) 

STATES S CROP KEi>DPTI|Vli^ DISTRICTS 
Pf.CJJPCTEO FRO-! AUGUST 30, 1975 


^TATL' CROP RrP. 01 ST. YTCLD 

M CM TANA 22.79 

NORTH CENTRAL 23.43 

NGPTHLAST 22.19 

CENTRAL 25.49 

SOUTH CENTRAL 24.53 

SOUTHEAST 22.83 

SOUTn D-VROTA 25.68 

NURTHV.'cST 24.11 

NORTH CENTRAL 26.45 

NORTHEAST 25>90 

WEST CENTRAL 23.80 

CENTRAL 25.00 

EAST CENTRAL 26.30 

SOUTHWi^ST 23.70 

SOUTH CENTRAL 25.37 

SOUTHEAST 24.98 

NORTH DAKOTA 26.43 ^ 

NORTHWEST 24.53 

tNORTH CENTRAL 27.03 

MURTirOAST 27.31 

WEST CENTRAL 24.96 

CENTRAL 26.71 

s AST CEN'-RM. 27. 93 

SOUTM’JzoT 25.33 

SOUTH CENTRAL 26.78 

SuUTHi:AST 28.17 

Nl.OErSOTA 28.86 

NORTH WE ST 28-85 

NO^TH CENTRAL 29.24 

WEST CENTRAL 28.91 

CFMT'-iAl. 28.74 

SOUTHWEST 28.17 

SOUTH CENTRAL 28-43 
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6.0 POST SEASON MODEL AND SITE ANALYSIS 


To facilitate model analysis, programs were produced to extract 
selected cell data from the meteorologic and agronomic season data 
files* The single cell is then regrown through the season to analyze 
the AGMET model. These programs are as follows: 


1. 

METSTRIP 

- extracts meteorological data 

2. 

AGFORMAT 

- extracts historical initial season growth data 

3. 

AGSITE 

- regrows selected cells 


6.1 Data Extractions 

6.1.1 Meteorological Data Extraction METSTRIP 

6. 1.1.1 Functional Description 

Extracts one-cell season meteorological data from the season 
master file for the 91-day growing season and creates a file containing 
this subset of data. This subset constitutes one input to the AGSITE 
program. 

6. 1.1. 2 Mathematical Description 


- None - 



6. 1.1. 3 METSTRIP EXECUTION 

Job Control Language 

//E3SRA JOB (5220.095, 5, 5.,,,,), '1052' 

// EXEC FORTGCLG 
//FORT. SYS IN DD 


-source code 

//LKED.SYSUB DD DSN=EARTHSAT.LOADLIB,DISP=SHR 
//GO. SYS IN DD * 


- FT05F001 input data - 
//GO.SYSUDUMP DD SYS0UT=A 

//FT29F001 DD DSN=N0NE, DISP=(0LD, KEEP. KEEP) ,UNIT=2400, 

// VOL=(PRIVATE, RETAIN, SER=ESC056) ,LABEL=(2,BLP) , 

// DCB=(RECFM=FB ,LRECL=20 ,BLKSIZE=3600 ,DEN=3) 

//FT32F001 DD DUMMY, DCB=BLKSIZE=20 
//FT31F001 DD DSN=MET,STRI1 ,DISP=(NEW,KEEP) , 

// UNIT=3330,V0L=(PRIVATE, RETAIN, SER=IPIWRK), 

// SPACE=(CYL,(1 ,2),RLSE,CONTIG).DCB=(RECFM=FB,LRECL=20,BLKSIZE=2000) 

Data Definition Description 


IKED STEP 

SYSLIB - assembler submarine library 

GO STEP 


FT29F001 - input MET season master 

FT31F001 - dummy file 

FT32F001 - output net subdile for AGSITE 



tSL J 


6.1. 1.4 METSTRIP DATA DESCRIPTION 
FT05F001 INPUT DATA 




CELL DATA CARO 


1 CARD 


CELL DATA CARD 
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METSTRIP CELL DATA CARD 


FORMAT: (214) 


Variable 

Format 

Cols 

Description 

I 

14 

1-4 

I location 

J 

14 

5-8 

J location 


SAMPLE CARD: 


'£10 *34£ 


D D 0 0 0 0 0 0 0 0 0 0 0 0 0 D C 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 D D D 0 0 a 0 0 0 0 0 0 Q 0 0 0 0 0 0 0 0 0 D D 0 

1 1 1 I 5 B I I 3 II II I! 13 H 15 15 i; 13 33 31 33 33 3 t 35 36 33 33 39 33 31 37 3 3 3 ( 35 33 31 3 ’ 33 (0 31 43 13 31 45 4 ( 4 ' 33 13 53 5 ; rV 33 S 3 5 i 37 5 B 5 ' 50 51 63 63 il 3 B 5 6 t BE l 3 10 . fi U 1 ' 15 '' '? 19 83 

n 1 1 1 11 1 1 1 11 1 ) I n 11 1 n 1 1 n I n I n 11 1 n 1 n 1 1 1 11 1 1 1 1 1 i II M 1 1 n 1 1 m 1 1 1 i n I M 11 n 1 1 

2 22222 222222222222222222222222222222222222222222222222222222222222222222222222 

33333 33333333333333333333333333333333333333333333333333333333333333333333333333 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 •; 4 4 4 4 4 4 4 4 4 

5 5 5 5 5 5 5 5 5 5 3 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 3 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 3 5 5 5 5 5 5 5 5 5 5 5 5 5 5 a 5 5 5 5 5 5 I 5 5 5 5 5 5 5 

6 a 6 6 6 6 6 a G C 6 6 0 6 G S 6 6 6 6 6 G 6 a fi 6 G a a 6 6 6 8 G a G G G 6 G a G G 6 G G G a C G 6 6 G a a a 6 G G a 6 6 6 a a a G G 6 6 E 6 a a a 6 6 E a 6 

m m n m m m m 1 rm n m 1 m n n ui m m m n n vn m 1 n n 1 m m 1 j 1 n 11 1 
a 8 a a G a B 8 8 3 8 8 8 6 a a G G B 8 G G a 8 a a 8 8 B Q 8 B 8 a a a a a a 8 e 0 8 0 0 B 8 a 0 a ^ a a a a a 8 G 3 8 a 6 a fi 8 'G 8 a a 8 8 e 8 G a a a G a 8 

a 9 9 3 9 a 3 9 G 9 9 8 a 9 9 9 3 9 9 a a 9 0 9 9 9 9 9 9 3 9 1 9 9 G 9 0 a a 0 0 9 0 9 9 3 3 3 S 9 U a S 0 3 S 9 3 3 3 S S 0 9 3 fi 9 0 8 9 3 3 G 9 3 0 S fi 8 5 

1 : 4 > > t i m I' 17 II M 15 IS II II 10 70 71 73 71 7 S K 7 : 75 75 35 01 0 ? 33 31 35 35 37 31 35 15 <1 17 13 11 IS 15 17 16 13 55 .1 SJ ;i 37 55 iO 15 {I 57 65 51 t; f . 31 55 33 37 73 7 ! i !E I. '5 57 

PHroH s.l'ii 
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METSTRIP 
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6. 1.1. 6 SOURCE CODE 


INTEGER*? A (in) 

READ(5*103) I*J 
103 F0RMAT(2I4) 

CALL OPENAG 
CALL AGOPEN 
10 CONTINUE 

CALL AGREAD(A) 

I1=A (1) 

J1=A(2) 

IF(Il.NE.I.OR.Jl.NE.J) GO TO 1 
CALL ERRWRT(A) 

DO 6 I=l»90 
DO 7 J=l*757 
CALL AGREAO(A) 

7 CONTINUE 

CALL ERRWRT(A) 

6 CONTINUE 

STOP 
END 
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6.1.2 Agronomic Data Extraction AGFORMAT 
6. 1.2.1 Functional Description 

This program extracts specified cell data from the initial site 
season and agronomic historic file and creates a file containing this 
subset of data. This data is used for initialization of the AGSITE cell 
growth program. 


6. 1.2. 2 Mathematical Description 
- None - 

6. 1.2. 3 AGFORMAT EXECUTION 

Job Control Language 

//AGFORMAT JOB (BR9001 ,746) programmer name' ,CLASS=F 
//FORT.SYSIN DO * 

- source code - 

//LKED.SYSLIB DD 

// DD DSN=EARTHSAT.LOADLIB,DISP=SHR 
//GO.SYSIN DD * 


- FT05F001 data cards - 

//HISTORIC DD DSN=HIST.G1,DISP=(0LD,KEEP), 

//#UNIT=3330, VOL=(PRIVATE, RETAIN, SER=IPIWRK), 

// DCB=(RECF=F,BLKSIZE=40) 

//FTlOFOOl DD DSN=SEAS0N,SITE2,UNIT=3330,DISP=NEW,PASS), 
// VOL=SER=IPIWRK,SPACE=(CYL, (3) ,RLSE,CONTIG) , 

// DCB=(RECFM=F,BLKSIZE=142) 

//FT21F001 DD DSN=LACIE.START, DISP=(0LD, KEEP, KEEP) , 

// UNIT=3330, VOL=(PRIVATE, RETAIN, SER=IPIWRK), 

Data Description 

FT05F00T - card file for FT05F001 
FT06F001 - print file 
HISTORIC - historic agronimic file 
FTlOFOOl - AGSITE file output 
FT21F001 - start agronomic file 
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6.1. 2.4 AGFORMAT DATA DESCRIPTION 
FT05F001 DATA 

1 CARD CELL DATA CARD 
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AGFORMAT Cell Data Card 




FORMAT: (2J4,I2) 


Variable Format 


Cols Description 


II 

J1 

K1 


14 

1-4 

I 

location 

14 

5-8 

J 

location 

12 

9-10 

K 

location 


Sample Card: 


;?i c> 2 

0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 D 0 0 0 0 0 Q 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 a 0 0 0 D 0 0 0 0 0 0 0 0 D 0 0 fl 0 0 0 1} 0 fl 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 

1 3 3 I 5 6 j 2 S It) It 1< 13 M 15 16 IJ M 15 3D 31 i3 H >4 35 IB 3? U 39 30 31 33 33 34 35 3E 33 39 39 43 41 43 43 44 45 46 <1 4B 49 50 51 53 53 SI 55 £C 5T 52 59 60 6‘ C2 63 t'. 65 66 61 tO £S H M h :6 >1'' 

11 1 n 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 n 1 1 11 1 1 n 1 1 1 n 1 1 11 II n 1 n 1 1 1 n 1 1 11 n i 1 1 1 1 I n 1 1 1 1 ; 11 11 1 1 1 i 

2 22222 2 222222222222222222222222222222222222222222222222222222222222222222222 ? 

33333 33333333333333333333333333333333333333333333333333333333333333333333333333 

44H44 444444444444444444444444444M44'144444444444444 4 44 44-4'14444 4't4 444 4 44444'1444 
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 0 5 5 5 0 5 5 5 5 D h 5 5 5 5 5 5 5 5 5 5 'j li 6 5 li 3 !i 3 b f 5 5 5 5 5 
66666G8&fiGGn 6656S6G6ilSG0B66563 6Gi!l)06S5GG66G6G6G6G36G(i666Gli6GiIG6GSGCGGC36GSG6B6G6 

m 1 m 1 m n m n m m m m n m m m n 1 n 111 ’i n n n m 11 11 m 1 11 n 11 m 11 11 

8 8 S e 3 8 B G 8 G 8 e 0 G 0 a 8 8 8 e e G 3 8 8 8 G 8 8 8 3 B 6 8 e B 8 G 8 6 8 8 6 G 3 8 G 8 Q 8 8 0 G 8 8 B 0 8 G 8 B 0 0 B B G G e 3 3 8 G G B G G G S G a 

9 9 9 g 9 9 9 9 9 8 9 9 9 9 9 9 9 3 9 9 il 9 9 8 3 9 9 3 9 9 9 9 9 3 fl 9 9 9 9 3 9 3 0 0 9 9 a 9 9 0 9 a 9 9 3 3 9 3 3 9 3 0 9 0 9 1 3 9 9 9 9 3 9 9 9 9 G 0 a 3 

1 3 : 4 5 S ' I 9 10 n 17 13 M 15 Ifi 13 in II IH3 :4 25 ID 1128 mo 3i 32 33 31 3S 16 if :i 33 « 41 (I « 14 iS 41 iM3 « Ml M 5.' 53 54 56 1,1 58 55 to 5t E* V f'-l l» a :.'i 'i; M ,Mi .S 1-, iC th : t. 

PHtOR Jj-oai 
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PROGRAM AG FORMAT 
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BOTODTJCW? ^ 

fTRlGlSAJ. A, 


nWGlSA 








6. 2. 1.6 SOURCE CODE 


HEAL SM(3) ♦ET(3) »STHINT(^)) »COFk(«0*3) »kl>I-H{ 9»4) ♦LAr»L0^4 
HEAL SMC(3) 

INTEGER*i^ NUAY(5) » CHHD A y ♦ 1 bU i L » HAD » 1 CU A Y 

InTEGEH*^:^ STAl t »COUNTY»CkL»»b(JiL»HLNUA*r » TSTSIT 

INTEGER*^ SQ 

COMMON/ARC HIV/I »J»K tJUL fk^iT ?SM»hT iVAVE*HHtCiP»bTRESSf 

3> TMAXf TMIN»CR[MUFI- »STR1NI , NDA Y » CHHOA Y » IbUlLjKAU 
GOMMON/HIST/I I . JJ*KK»LAT fLON»YLUTND» YLDAUt- » S T A Tt ♦ CUUN T Y » CRU » SO 1 L . 
a> PLNDATfTSTSIT 
ISITE=1 

CALL HSTORNdl) 

CALL OP'dNAb 
«B8 CONTINUE 
S(3 = 0 

HEAD (5» 100, ENO = CH4^) 

100 FORMAT (dl A, 12) 
in CONTINUE 

READ (21 ,101) I ,J,K,JUL ,rtMl ,SM,El ,t I R , r_ I PA VE , RkE C i H , b fh-t $b , 
i> TMAX,TMlN,CHNOFK,blHlNT , NU A Y , CRHUm Y , rbUlL,HAD 

101 FORMAT (23AA,8A2) 

IF(I.NE.Il.OR.J.NL.Jl.OH.K.NE.Kl) bU lU iU 
DO b Ml ft = 1,3 
SMC (NIFT) =SM (Nli- T) 
h CONFINUE 

11 CONTINUE 

CALL HSTHU(ISITE) 

ISITE=IS1TE+1 

IF ( 1 1 .Nt . I 1 .OR. JJ.Nf- . J1 .Op.KK.NE .Ki ) bU iU 11 

1PLNUA=PLNUAT 

SQ=SQ+1 

WHITE( lUjclOOl) 1,J,K,JLJL,BMT , (SM(L) ,L = i,3) , (bMC(M) ,M=1,3) , 

X (ET (LI) ,L1=I,3) ,tTP,ETPAVE»PRECiP»STKt.bb, TMAX , TM IN , CR nUFF , 

X (STHINT (L2) ,L2=1 ,b),LAT, LON, IPLNDA, soil, (NO AY (L3),L3=1,5), 

X CRPDAY , RAO, ST a if ,CKU,COuf>)TY,TSl SI f 
GO TO H8b 

2001 F QRMAT ( 2RA4 , 1 3A2) 

099 CONTINUE 
STOP 
END 
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6.2 Agronomic Analysis AGSITE 

6.2.1 AGSITE 

6. 2. 1.1 Functional Description 

This program regrows cells with extracted via A6STRIP and 
AGFORMAT. This program as presented regrows selected cells with the 
model as implemented during the 1975 growing season. During the course 
of analysis, several versions with variations reflecting model and site 
analysis were introduced; however, the basic program flow remained the 
same. 


6. 2. 1.2 Mathematical Description 
Refer section 5. 2. 1.2. 

6. 2. 1.3 AGSITE EXECUTION 


Job Control Language 

//AGSITE JOB (CR9001 ,746), 'programmer name' ,CLASS=F 
//SITE EXEC F0RTGCLG,PARM.F0RT=ID,MAP',TIME.G0=5 
//FORT. SYS IN DD * 


source code - 


//LKED.SYSLIB DD DSN=EARTHSAT.LOADLIB,DISP=SHR 
//GO.SYSUDUMP DD SYS0UT=A 
//GO.SYSIN DD * 

F05F001 input data 


//HISTORIC DD DSN=SEAS0N.SITE2,UNIT=3330,DISP=(0LD,KEEP,KEEP) , 

// V0L=(PRIVATE,RETAIN,SER=IPIWRK),DCB=(RECFM=F,BLKSIZE=142) 
//FT12F001 DD SYS0UT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330) 
//FT13F001 DD DSN=MET,STRI1,DISP=(0LD,KEEP), 

// UNIT=3330,V0L-(PRIVATE, RETAIN, SER=IPIWRK), 

// SPACE=(CYL, (1,2), RISE, C0NTIG),DCB=(RECFM=FBL,LRECL=20,BLKSIZE=2000) 
/* 

// 
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Data Definition Description 


SYSLIB - assembler subroutine library 


HISTORIC - agronomic season subfile generated by AGFORMAT 

FT12F001 - printer me MCTCToro 

FT13F001 - MET season subfile generated by METSTRIP 
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6.2.1. 3 AGSITE DATA DESCRIPTION 
FT05F001 DATA 

1 CARD PROCESS CONTROL CARD 
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AGSITE PROCESS CONTROL CARD 


FORMAT: (312) 


Variable 

Format 

Cols 

Description 

NDAYS 

12 

1-2 

days in growing season 

NDTP 

12 

3-4 

days to be processed 

IRWA 

12 

5-6 

total cells to be processed 


Sample Card: 


aiai! L 


? ! ! ? ! ! ! ! ! ? ® ® ® ® ® ® ® ® ® ® ® ° ® ® ® ® ® ° “ ” » “ ® » fin n “Of! 0 D D 0 0 0 0 0 0 0 0 S 0 0 0 0 0 0 

‘ J ‘ ” " ” ’• ” 33 34 35 3f 3/ 31 35 45 41 41 43 44 45 4E 43 41 43 '5 >1 53 53 34 55 li 53 51 55 53 SI S3 5, £4 S5 £S S3 S3 S3 >} i: ; ;V " ::, ^s n v ,3 « 

* ' ’ ^ I > 1 1 1 1 1 1 1 n 1 1 1 1 n 1 1 1 j 1 1 1 1 1 j 1 1 1 1 ] 1 1 1 1 1 1 1 1 11 1 i n M 11 

22222222222222222222222222222222222222222222222222222222222222222222222222222222 
33333333333333333333333333333333333333333333333333333333333333333333333333333333 
4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 U 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 -1 4 4 4 4 4 4 4 4 4 4 4 
55555555555555555555555555555555555555555555555055555555555555550505555536555533 

6 6 G 6 e 6 G 6 6 B B 6 B G G C C 6 B 0 S G 6 6 B C G 6 B 6 6 6 6 6 6 6 6 6 6 B B G G G C 0 0 6 6 e 6 C G 6 0 G fi G 6 6 6 G G G G 6 G B 6 6 'll 5 C 5 6 5 G G C 6 

7 7 ] 77 7 n ] n 7 7 7 7 U 7 7 7 7 7 7 7 7 7 7 7 n 7 n 7 7 7 7 7 7 7 7 7 7 n n 7 7 7 7 ? 7 7 7 7 7 7 7 n 7 7 7 7 7 7 n 7 7 7 7 7 7 j n n 
0 


9 e 9 9 9 0 3 9 G 5 9 9 9 8 9 9 9 3 9 a a 3 3 0 9 3 D fl g 9 9 9 9 9 3 3 0 9 9 9 9 9 8 9 9 3 9 9 9 0 9 9 9 9 9 g 9 3 g 9 9 D 5 9 3 M S 3 3 9 g q Q q « Q n 0 n 
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AGSITE HEADER LABEL DATA CARD 


FORMAT: (314) 

Variable 


NAME (1,1) 
NAME (2,1) 
NAME (3,1) 


Format 

Cols 

Description 

A1 

1-4 

Ith cell name 

A1 

5-8 


AT 

9-12 



Sample Card 

UILLIAMS 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 (1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 fl 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

, , J 4 s { , I ) in II II ,3 U 15 It n li tj '0 Jl J? !3 H !5 « 21 21 2S 32 31 32 33 33 35 35 31 S3 U 40 41 42 43 44 45 4i 41 43 49 53 51 51 53 54 55 53 SI 59 59 S( 51 63 63 64 15 66 61 66 69 10 II 17 II U h 16 » II U « 

1 1 n I 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 n H H 1 1 1 1 1 ) 11 1 11 11 1 11 1 1 1 ! 1 11 1 1 1 1 1 1 1 11 11 1 1 1 1 

2222222 222222222222222222222222222222222222222222222222222222222222222222222222 
33 3333333333333333333333333333333333333333333333333333333333333333333333333333 

444444 44444 44444444444444444444444444i|44444444444444444444<M444444444444444444 

55555555555555555555555555555555555555555555555555555555555555555555555555555555 


B6Bfi666666BB66666666066fi666B66BB0CGGG6666G6B6C6BBI)6E66666B6E6666Gli666BB6B66666B 

? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 n 1 n 7 7 7 7 7 I 7 ] n 7 ]] 1 7 7 7 7 7 7 7 7 7 7 ? 7 ] 7 n 7 7 7 I 7 7 7 7 n 7 n 7 7 7 7 11 n I n 7 7 1 I 


9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 S 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 3 0 9 9 9 ? 9 9 9 9 9 9 9 3 9 9 9 9 9 9 

, . J I 5 ( I ( , I, |, ,! 13 l< 15 16 ins 13 10 I! 12 UK 25 26 U 2l M 30 II 3133 II 35 36 31 31 35 10 11 « 4HI 15 16 IIIMS 50 51 52 51 51 55 56 51 5! 55 60 61 61 61 61 65 66 61 66 63 10 II 12 13 11 IS 16 II >0 U 60 


keproducibh 
ORIGINAL M( 




THE 
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AGSITE 


ENTRY MAIN 


CALL HSTOPN 


read season days, 

TO PROCESS DAYS 

and of sites 


SITES COMPLETE 


EXTRACT MET 
DATA FOR SEASON 
FOR SITE IRWA 


WRITE SEASON 
MET DATA 
FOR SITE IRWA 



SITE 

COUNTER 1 



/ SITE 

STOP ^ 

c 

k y 

COUNTER 22 



CALL HSTRD 


t — 
A 


WRITE CELL 



CONTENTS 
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SUBROUTINE SMTBGT 
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SMTBGT 
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SMTBGT 

















6 . 2 . 1 . 


?U0 0 


r- 

100 

c 

c 

c 

c 

?f.) 0 i 
10 
c 

^^)02 

c 


2010 

2'-. 


Is 



2 n 0 




SOURCE CODE 

lMTtGfcR^^2 LhLMi-..1 ( 10«lUU) /lUOO'-^O/ 

lMTtGEP.*2 (miJaY (^) »Lwi-UAY » bO i L » HmU » b T A I t»CKu»CNT'r »bl f - mO , bt.QNU f 

1 1 » J i *PKtC f HnT ♦Kfvfc I » bUL<m » i-^AX 'I » f'' In r * OH 1 i » JuL 1 ♦ A ( i 1 < 


iNThGEP name (3^h) /'G lAC* «• * It-K' » • • » ‘ A^KU • ♦ ' w ' f ' '» 

tMANh* , * AT'I E • ♦ ‘O' ’ » ‘ (>I V 1 ' « 'Ut • » ' • » ‘buKA • ^ * t • » • ' » * hAM'i* * * 


’ « 


* / 


lI'JTEGtP VLWOaT 

HEAL SM ( 3) »SMC (b) »tl (3) *LAT»LUN»S1 k1n( ( n) 

CO-'MUN/ rSTAkC/ ! » J.K* JUL»bHT,SM*bH.C»c .1 » t ’I H , t fi-'A \/t ♦ HHLC IH , 

STKC-Sb » 1 E AX ♦ I I'l » LhMOF K » b'i (■< InT » L A I » LOiM ♦ HLl‘ 0 A I * bU 1 L » NO A Y ♦ CHPDA Y » 

'-’AD.STATt.iCHQ^CH rv .bITNO»bt-.QNO 

L.O'''iMUN/MtT|;AY/l 1 ♦J1 »HHlC»HLI , H|\ih T » bOLAH » MAaT » M i NT » b.-lT UluM 
lbTTt. = 0 

GALL hSTOHM<l) 

HL AD ( b • 20 U U ) Y < bD T h V 1 Hv. A 
f- 0-i»KAT ( Oi^r ) 

1)0 s lll = i,lHY>. 

H t A Ij ( 5 » 1 0 0 ) ( 0 A F'-'t- ( o » 1 1 1 ) • o = 1 K bO 

CO'-TIiYUt 

H) '’f'.AT ( ,3A4) 


DO bUU sCt LL= i >• 1 N'''* A 


HEAD ' NO A Y S ' •'■'C: T DAl A 
JO iU L=1»DDAYS 

HEAD ( 1 3 » 2u 0 1) { Ct L I'lt 1 ( M , L ) » (''!=! * i U ) 

^O'^.-iaT ( 10 A 2 ) 

OOMirNU-: 

DUhP i.)«fA K'3'^ 'ihib L.Ll.L 
vjWl Th. (0,2002) ( (CtLY'Ll (L»I'J »L = i»lU) , ,4 - 1 • r-iUA Y S ) 
f- ( ) M ,M A T ( 1 U ( 2 X , ], -) ) ) 

IF (NCfe-LL.b r . 1 ) bO ru 2'^ 

net iMt.xr TL.-31 blit 

Cjx I 1,-vjUE 

Ii- ( IblTL. 6c. 10 blDH 

CALL HSThU ( Ibi rt. ) 

Tt ( 0 . 2Ul 0 ) I . o » K » DDL # nM [ , ( bf'^ (L 1 ) » Li = i ^ » ( SNC (L2 ) , L2 = 1 , 3 ) ? 
'I. I fe T ( L3 ) , L3= 1 , 1 ) , cT H » fe- 1 HA' Vc • KhcC Ik , b T hc bb « I I'lAX , T , CKMOfe fe » 

A { OTK liV r ( La ) , L 4 = 1 ♦ b J , LA I ♦ LOij » KL;’i DAT , -dU tL ♦ (nD aY ( Lb ) , Lb= 1 . b ) , 

A C‘<‘LDAY>HAD,STATi ,LhU,CNI Y.bl lNOjbcHiMD 
I- 0^'iv AT ( /// , 4 I 4 . f b . f Vfe"^ . 2 » / . 1 2fe <"■ . 2 » / » A L A 1 4 ) 

I2 = tfc.LlArl f ( i , i ) 
j 2 = CELKb I (2» 1) 

i fe ( 12 . r V , i , ^^!D , o>r . Lw . J ) bU TO 30 

•'IbKArCH - bfcT .WbXT Nc-T sSLOOcrvCt 
i‘j To bfyU 

Ct-LL a4ATC>- 
iS!=bIT'.iO 

Th ( 1.2, c O') 3 ) ('laiXt ( I'-. , 1 b I ) , 3 ) , -jLi-^nD 

I- , N' I a T ( 1 i-i i , / , 1 1 X , ' b 1 T t I * , c A A , A i , ' >A ‘ ? T 1 ) 

1 r ( b U I L * 0: 0 « 2 7 ) 3 0 T 0 4 0 

■ 3 )') T b ~ 0 . u 
I K) 4 i N 3 - i 3 
b“'Tb=^St'''C ( 'N 3 ) •♦•'3 'lb 
C*iNl lOii)}; 

S'- C ( 1 ) = . Ub^=-SNTS 

b«C (r) =.cvJ-"-bHrb V 
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■T O 


SMC ( 3) =.?■:) 

SM (1 ) ( i ) 

SM (^) =S-iC (£*) 

bM(3)=SMC(3) 

40 CONTI MUt 

T T h ( 1 » 3 U 0 4 ) ( b I'-' C- ( M ) » M = 1 * 3 ) 

20 0^^ hOW.'^AT (/»31 A » • bK(l) SM(4:} SM(3) ' * / ■. 1 i a ♦ • CaPAC 1 T Y • 3F ^ 

Ai K I T t . ( 1 2 » 3 0 L T ) 

2003 F O'-'MAT ( 6VX » • AVr ' » i!D A» * Tt.-iH (C)*«/»iUA»' JUL bM I • » c 1 X ♦ 

X ' LT ( i ) tT(b) ti T ( 3 ) 1 P t7P PKPC S'i b f'AA • Iv| •» 

A ' PUi\;il-l- CW’oFh CkPuA’i KA0*»/) 

00 bO Ida Y = 1 »N'j'I P 
Il=CPL'^t T ( 1 , 10 AY) 

Jl = CfiLixt I (2» iU i Y ) 

PPEC^CtLCh r (3» ri,,.Y) 

PET = CELMtT (4, li.iAY) 

P N E T = C 1. 1. M fc T ( ♦ j iv A Y ) 

S 0 L A K = C t L t. r ( b • J 0 Y ) 

KAXT^CHLMfc T ( 7 , n:*AY) 

Mli.'T^CPLh'itT ( ll^A Y ) 
i<MTl = CELPt.T (4» U'A Y ) 

CALL UAILY 

C -KIMT STATUy. 

T Tfc (1. b • 2 i- (I b ) JLL » cl-' T * ( Y>M ( L) i L= 1 » 3 ) ♦ { n I( '' ) o 3= 1 » J ) ♦ L I r- « 

< h T-i-' A V E ♦ P H n C I f T h tr. S -5 > T I”' A » 1 M i N » K U N (j F b » l H .-l L; L I- i C n P b A Y i k A i j 
2 0 0b F ') '-'ivm T { ,1 0 » I 4 , 1 , » r b . c » cF / . 2 , 2F b . 1 » F b . i » t* b . 2 ♦ 2F fi , 1 « pF ;i . 2 . 4X 
* ru2X.l4) 

trvL/ CVLLi- 
!) CObfirvii)'-. 

S Jr''iP/tr< i ./ 1 T - 1 1 Yj its] ;■> i ] r 
2'-' [Tt (12»C JO n 

2 u ^ F A T ( / / * H 2 A « * bUf- Mmk Y Ur Y *" aP ( (J u A i r. ^ >) / / » 4 b / > • I iM T t " V AL 

X * STp NYj • OAY MVbbTPM 

7S = 0. 

1 ' ~ 1 ‘ , 

0 O o 0 L = 1 ♦ "5 
'HY = ('-U A y ( L ) 

ir (f..i’.LT. i ) OO 10 bu 
\S-bTPlYT(L) 

TS=TS+A3 

T’':- To* + r lU A I I NO ) 

A\/P = AS/FLOa 1(3’} 

(V r r F ( 1 2 ^ 2 ti 0 p ) L < A -) • i‘!u • A V u 

pOOb FOwr^AT (box » I 1 * -X ♦ F L . 2 » ^-A n i 3 t bx vF 4 , 2 ) 

'm; C'i.’jTlNljr 

L t. bTI'^Alh YiFLU 

Y I . ' ’ = - 1 (1 » 0 b b 6 + 0 . b r j c o 7 S . - 3 1 • 2 V b 4 T 3i / i N ) ■‘•'3' 2 * 

1 F ( Y L tJ • L T , I) , 0 ) Y L L/ = L . u 
V 1 I F . ( 1 2 » 2 U 0 ■? ) J U L > Y L 0 

POOP r )"f' AT {/ ,^oA » *r .->1 iiv aTcu I'iPLU (pLaLTIi:«<o - ' « I 3 » ' ) '>F“i. 2 ) 

L F INiSh LOOP 

ib 1 Tr.= l b I I F.-*- 1 
u.) TO 2 0 
bO*. uO-iTlNUh 

bT OP 
tO'i 
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- 2 ) 


i OT AL • -• 


O D O 


iO 


C 


,v.Kr’UMY, t 5 UlL*.‘iAXI ,Ni.'Jl ,rAO,bTATt,Ct<0,CMTY, 

A M'‘^T1. ♦Wi\'b.l ?PE T tbOLA^^ ♦ 1 i »vJi *PkLC« 5I I WO ♦ .-Dt: uMj 
IMTtiOt.W PL'MuAT 
iisiT tO£rV->H tOT -tb'jiL 

KH.AL BMT*S''^(3) ,tT(3) *t I H , t, f r a\/E * >^Nt C 1 H » b I Kt bb . b 1 K 1 1'J I lb) ,bMC(3) 
(,)ATA K/'J . U W4b3^b£;b/ 

C0MH0N/TE>'PE/I3‘>YU fsi< 1 

CO^.MOW/IbTAMC/I ♦OfK » JULf i » br^ f SN' C » r. I f A</b»P<t^ i » p ^ 

X STRtSS»T»'iAX,Tf-MW»CKNOb(- »i'lr^Iivl ‘LAl tLU.>»»PLp\!'a( ,bUiL>iN.DAY»CK UA 
X PAlJ»STATfc •CPL).ONfY»bni«.^-»bt.UWO 

00^'MQN/PtTDAY/r 1 f J1 .PPbC - pc 1 »Plvlti f , bOL Ar’ » NA-' F » li iT * PH I 1 . lU 


J-334 

KE=K 


M X =: f.-, A X T 

f M ax=F Lo a r ( •■■’•T ) ' i 0 • 
rMCXF = l .P* I ■^ AX + b-; » 
MT -mint 

T A I I'j = F L P A I ( T ) X i (j * 
■jMlNF = l ,oA-ti-''IN+3E^. 
KAO=HNfe;‘I 


CaLCULAIP UAYLPiMblH 


JUL=JUL+1 
0AY=JUL 

f;ph = 23 . b'*'S 1 ' ! { 0 . njA f -b(( • ) ■•'■K ) 

COp = -TA!m ( LAT-" a ) •'■'•TpIa (PPH'-P ) 

L)AYLf.N = APO0b (COn ) . o4Uo i C ( 

calculate m- \ tr.N 1 VALut 

A tv' T = A • A 
b=-.iTl 
iriMT = 5/100>: 

0 

mT=PPT 

PTP=E LOaT (P i ) /lu . 

[v|T=P>^hC 

pbit- C l P = F L(U' T (PY ) / i u . 

I.bM7 = IF lx ( T ) + 1 

c 

P_ CALCjL''>TE Sf'lL Ppib!ur<c r\ivU PL/-'!-'Jl bit-tbb 

(- 

CALL bMlm-'V 

C 

Q I;AY' b P-vU*)T'" OU ''‘PLc. i t ” '"'c.TUnA 

C ... 

1 F { I . L I . i . ibi'U . b ! • J bb Ip 

mOAY ( I'HviT ) =iMi)AY ( IH"' I ) + I 
STP I>-JT ( i kn.T ) =b r 1 ijT ( it--'- i J + bT Pt bb 

c P P U A Y = C P U A Y + 1 
2.) CO’.vTlWiJP 
pFTUPi'J 

E'Pi 
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--;r 


OF THE 


bU^koU r Ii .r, 

iNT£6E«*<: (b) »CHKbAY » k A u » b T ,. '( t. » t hu , LN (Y *btUivU» :si 1 bn 

I M T E G F ir! ••) o I L 
IbTt8t'-c>'<Y '31)7 l_i. 

INTtGtrf HL>ii.AT»b(J) 

KhAL SM (.i) ,t; 7 ( ?,) ,b7r.it.n 1-) .b^LT,:!) t L 7 1 .LUN 

r< t, L 1 W F I L T • C ( -i ) 

IJ A T A F A £ ] ( I -/ / y , ' t ^ -I / 
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7.0 DATA BASES 

Three types of data bases are generated during the AGMET construc- 
tion and execution. Type one consists of permanent files. The following 

data bases are of this type: 

1. Meteorologic historic 

2. Agronomic historic 

3. Agronomic Season File 

Type two data bases are old master, new master files which are generated 
continuously by program execution. The following data bases are of this 
type: 

1. Meteorologic daily 
ZJ Agronomic archive 
3. Agronomic class day 

Type three data bases are master copies of the total season results from 
meteorologic and agronomic models. These data bases are: 

1. The meteorologic season master 

2. The agronomic season master 

With the notable exception of the meteorologic historic, the records are 
read and written from common blocks or vectors in binary strings using 
assembler input-output routines. Section documentation for each data 
base will describe record and file structure and the FORTRAN buffer 
area, common block or array and briefly describe each variable. 

7.1 Type I Data Bases (Permanent Files) 

These data bases are initially created for a particular growing 
season, and once created are used in a read only manner. 



7.1.1 Meteorologic Historic 


This file is created by the program STAIJ and METGEN prior to 
season growth. It contains historical meteorological information necessary 
to application to station data. 

7. 1.1.1 File Structure 

This file is ordered as follows: 

1. Ascending I 

2. Ascending J within each I 

and is normally processed sequentially from beginning to end. 

7. 1.1. 2 Record Structure 

Each record contains 16 scaled variables in FORTRAN format 
(213, 1415). Table 7-1 gives variable descriptions, location, type, and 
scale factor for each data record. 
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SYMBOLIC 

LOCATION 


SCALE 


NAME 

(Bytes) 

TYPE 

FACTOR 

DESCRIPTION 

IX 

1-3 

CS 

1 

I Location 

JX 

4-6 

CS 

1 

0 Location 

ISTASd ,I.J) 

7-11 

CS 

1 

Number of closest station to ; 

IRdJ.J) 

12-16 

CS 

1,000 

Weather weight of station N 


17-21 

CS 

1 

N 2 2 nd closest station 


22-26 

CS 

1,000 

Weight of station N 2 

O 

27-31 

CS 

1 

N 3 3rd closest station 

o 

32-36 

CS 

1,000 

Weight of station N 3 

0 

37-41 

CS 

1 

N^ 4 th closest station 


42-46 

CS 

1,000 

Weight of station 


47-51 

CS 

1 

Ng 5th closest station 


52-56 

CS 

1,000 

Weight of station 

ISTAS( 6 ,I,J) 

57-61 

CS 

1 

N 5 6 th closest station 

IR( 6 ,I,J) 

62-66 

CS 

1,000 

Weight of station Ng 

PLNDAT(I,J) 

67-71 

CS 

1 

Planting date 

IBMT(I,J) 

72-76 

CS 

1,000 

Bimeterol ogical time 



CS 

= Character String 



BI 

= Binary String 


TABLE 7-1 

Meteorological Historic Record Structure 
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7.1.2 Agronomic Historic File 


This file created by the programs HISTGEN* HISTAD, HISTUP, 
contains the historic agronomic data for each I, d. 

7. 1.2.1 File Structure 

This file is an ordered file but can be processed randomly by 
key. It is ordered as follows: 

1. Ascending I 

2. Ascending J within each I 

3. Ascending K within each J 

The key associated with each record is KEY = (I - 1 )*28*4 +(J-1)*4+ 
K and I = I - 208, J = J - 335. 

7. 1.2. 2 Record Structure 

Each record is a binary string of 13 variables and is trans- 
ferred from and to a common block HIST for formatting purposes. Des- 
criptions of record structure are in Table 7-2. 


SYMBOLIC 

LOCATION 


SCALE 


NAME 

(Bytes) 

TYPE 

FACTOR 

DESCRIPTION 

II 

1-4 

BI-INTEGERM 


I Location 

JJ 

b-8 

BI-INTE6ER*4 


J Location 

KK 

9-12 

BI-INTEGER*4 


K Location 

LAT 

13-16 

BI-REALM 


I, J, K Latitude 

LON 

17-20 

B I -REALM 


J, K Longitude 

YLDTND 

21-24 

BI-REALM 


- unused - trend value 

YLDADF 

25-28 

BI-REALM 


- unused - 

STATE 

29-30 

BI-INTEGER*2 


I, J, K state location 

COUNTY 

31-32 

BI-INTEGER*2 


I, J, K county location 

CRD 

33-34 

BI-INTE6ER*2 


I, J, K crop reporting district location 

SOIL 

35-36 

BI-INTEGER*2 


I, J, K soil assignment 

PLNDAT 

37-38 

BI-INTEGER*2 


f 

I, J, K planting date 

TSTSIT 

39-40 

BI-INTEGER*2 


- unused - test site indicator 


CS = Character String 
BI = Binary String 

FIGURE 7-2 

Historic Agronomic File 
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7.1.3 Agronomic Site Season 

This file created by the programs INITIAL contain site season 
initialization constants. 

7 . 1 . 3 . 1 File Structure 

This file is ordered for sequential processing and the order 
is: 

1. Ascending I 

2. Ascending J within each I 

3. Ascending K within each J 

7. 1.3. 2 Record Structure 

Each record contains 13 variables in a binary string and for- 
matted internally through the common block archive. The description of 
the record structure is contained in Table 7-3. 
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SYMBOLIC 


LOCATION 


NAME 

(Bytes) 

TYPE 

I 

1-4 

INTEGERS 

J 

5-8 

INTEGER*4 

K 

9-12 

INTEGERS 

JUL 

13-16 

INTEGER*4 

BMT 

17-20 

REAL*4 

SM(1) 

21-24 

REALM 

SM(2) 

25-28 

REALM 

SM(3) 

29-32 

REALM 

ET(1) 

33-36 

REAL*4 

ET(2) 

37-40 

REAL*4 

ET(3) 

41-44 

REAL*4 

ETP 

45-48 

REALM 

ETPAVE 

49-52 

REAL*4 

PRECIP 

53-56 

REAL*4 

STRESS 

57-60 

REAL*4 

TMAX 

61-64 

REAL*4 

TMIN 

65-68 

REAL*4 

CRNOFF 

69-72 

REAL*4 

STRINT(l) 

73-76 

REAL*4 

STRINT(2) 

77-80 

REAL*4 

STRINT(3) 

81-84 

REAL*4 

STRINT(4) 

85-88 

REALM 

STRINT(5) 

89-92 

REAL*4 

NDAY(l) 

93-94 

INTEGER*2 

NDAY(2) 

95-96 

INTEGER*2 

NDAY(3) 

97-98 

INTE6ER*2 


DESCRIPTION 

I grid location 
J grid location 
K grid location 
Julian date 
Bimeteorological time 
Soil moisture capacity top layer 
Soil moisture capacity middle layer 
Soil moisture capacity bottom layer 
Evapotranspiration top soil layer 
Evapotranspiration middle soil layer 
Evapotranspiration bottom soil layer 
Potential evapotranspiration 
Running average evapotranspiration 
Precipitation for Julian date 
Daily stress 
Maximum temperature 
Minimum temperature 
Cumulative runoff 
Total stress in BMT interval 0-1 
Total stress in BMT interval 1-2 
Total stress in BMT interval 2-3 
Total stress in BMT interval 3-4 
Total stress in BMT interval 4-5 
Number of days in BMT interval 0-1 

Number of days in BMT interval 1-2 

Number of days in BMT interval 2-3 
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NDAY{4) 

NDAY(5) 

LRPDAY 

TSOIL 

RAD 


99-100 

INTEGER*2 

Number of days 

in BMT interval 

3-4 

101-102 

INTEGER* 2 

Number of days 

in BMT interval 

4-5 

103-104 

INTEGER*2 

Number of crop 

growth days 


105-106 

INTEGER*2 

Soil category 



107-108 

INTEGER*2 

Net radiation 




TABLE 7-3 

Agronomic Site Season 
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SYMBOLIC 

LOCATION 


SCALE 


NAME 

(Bytes) 

TYPE 

FACTOR 

DESCRIPTION 

ARRAY (1) 

1-2 

INTEGER*2 

1 

I location 

ARRAY (2) 

3-4 

INTEGER* 2 

1 

J location 

ARRAY (3) 

5-6 

INTEGER* 2 


Total daily precipitation 

ARRAY (4) 

7-8 

INTEGER* 2 

10 

Potential evapotranspiration 

ARRAY (5) 

9-10 

INTEGER* 2 

1 

Net radiation 

ARRAY (6) 

11-12 

INTEGER*2 

1 

Solar radiation 

ARRAY (7) 

13-14 

INTEGER*2 

10 

Maximum temperature 

ARRAY (8) 

15-16 

INTEGER* 2 

10 

Minimum temperature 

ARRAY (9) 

17-18 

INTEGER* 2 

1 ,000 

BMT 

ARRAY (10) 

19-20 

INTEGER* 2 

1 

Jul ian date 



TABLE 

7-4b 



ARRAY (1) 

1-2 

INTEGER*2 

1 

Year 

ARRAY (2) 

3-4 

INTEGER*2 

1 

Day 

ARRAY 

4-6 


1 

24 

ARRAY (3) 



1 


ARRAY (4) 



1 


ARRAY (5) 



1 


ARRAY (6) 

7-18 


1 

- Filler - 

ARRAY(7) 



1 


ARRAY (8) 



1 


ARRAY (9) 



1 


ARRAY (10) 

19-20 


1 

Dummy parameter for sort (999) 



TABLE 7 -4a 


IV -322 



7.2 Type- II Data Bases (Old Master-New Master) 

These data bases serve two purposes. They initialize model growth 
for this cycle from results of the previous growth. They provide storage 
mechanism for each cycle's data. 

7.2.1 Meteorological Daily 

This file stores the meteorological daily results on a daily 
basis. This data is recorded for input to the agronomic model and is 
used to define the characteristic daily plant environment. 

7. 2. 1.1 File Structure 

This file's last day is processed by the MET model to extract 
last day BMT for use in the initialization of the present cycle. It is 
ordered by: 

1. Julian date 

2. I location within each day 

3. J location within each I 

7. 2. 1.2 Record Structure 

Each record is a binary string formatted using an array address 
as the start buffer location. Records are formatted as indicated in 
Table 7.4. Two record types are present and occur in the following 
frequency for each data: 

1. Daily header record with Julian date 

2. 756 meteorological daily records one per I, J 

7.2.2 Agronomic Archive 

This file contains the results of the present cycle of plant 

growth on a daily basis and a sorted copy of the total season archive 

IV-323 




results constitutes the agronomic season master. Any single day's 
results can be input to the PREDRUN program for yield prediction. 

7. 2. 2.1 File Structure 

Each archive tape is an ordered file as follows: 

1 . I location 

2. J location within each I 

3. K location within each J 

4. Julian date within each I, J, K. 

Cells not within the study area are assigned I = -1 , J = -1» K = » 

Julian date = -1 but are placed in their relative location within the 

file. 

7. 2. 2. 2 Record Structure 

The agronomic archive record structure is a duplicate (Table 7- 
3) of the agronomic season record. 

7.2.3 Agronomic Last Day File 

This file contains the final status of each study area cell and 
serves to initialize the agronomic model when growth is continued. 


7.2.3. 1 File Structure 

Each last day file contains one day's data sorted as follows: 

1. I location 

2. J location within each I 

3. K location within each J. 

Cells outside the study area are assigned I = -1 , J = -1 , K = -1 , Julian 

date = -1 but are in their relative location within the file. 
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7. 2. 3. 2 Records Structure 


The appropriate record structure is described in Table 7-3. 

7.3 Type-1 II Data Basis 

Master copies of the total season results are generated using the 
IBM system utility lEBGENER copying each cycle's results using the MOD 
disposition. These data bases contain the total results of the agro- 
nomic and meteorological models and provide a mechanism for analyzing 
the models. 

7.3.1 Meteorologic Season Master 

7. 3. 1.1 File Structure 

The total season results from the meteorologic model are 
ordered as in section 7. 2. 1.1 with N repititions where N is the number 
of cycles run. This file is also created using the IBM system utility 
lEBGENER with the MOD disposition, to copy each cycle's results. 

7. 3. 1.2 Record Structure 

Record structure is identical to description in Section 7. 2. 1.2. 

7.3.2 Agronomic Season Master 

7. 3. 2.1 File Structure 

This file is structured using the IBM supplied system sorting 
routines and is ordered as follows: 
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1. I 

2. J within each I 

3. K within each J 

4. Julian date 

7. 3. 2. 2 Record Structure 

Record structure is described in Table 7-3. 
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